PAGE 1 URN DOWN - for Atari systems 


D2:U.M65 


=4000 


0000 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 
400A 
400B 
400C 
400D 
400E 
4 OOF 

40 10 

4011 

4012 

4013 

4014 
403C 
41 IB 
41FA 
420A 
424A 
428A 

4294 

4295 
42A5 
42A6 
42A7 
42A8 
43B4 

47B4 


4B24 

4B28 

4B2A 

4B2E 

4B32 

4B36 

4B3A 


=0370 

004D 

02FC __ 

02F2 

000A141E 

2832 

00050AOF 

14191E23 

282D3237 

3C41464B 


1000 
1020 
1040 
1060 
1080 
1100 
_1120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1300 
1320 
1340 
1360 
1380 
1400 
1420 
1440 
1460 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 
1720 
1740 
1760 
1780 
1800 
1820 
1840 
1860 
1880 
1900 
1920 
1940 


.TITLE "UPN DOWN - -for Atari system* 1 ! 

i 

; U.M65 


9 

a a 

5 3 


.OPT NO LIST 
.SET 3,0 
ORG = $4000 

*= ORG 
PSCORO *= * + l 
PSC0R1 *= * + l 
PSC0R2 *= * + l 
ROUND *= * + l 
SCRFLG2 *= *+l 
SNDCTL *= * + l 



player's score 


flags VBI to scroll pia yfie ld 
controls sound on/off 


TRUCKX 

TRUCKY 

DSCROL 

SCRCTR 

SCRSPD 

SCROLF 

KX *= 

KY_ *= 

CX * = 

CY * = 

OLDVPOS 

OLDHPOS 

CHINDX 


*= *+-1 
*= *+l 
** *+l 
*= * + l 

>■ jtl 
*= *+l 
*+•1 

* + l 

* + l 

* + l 

*= *+l 
*= *+l 
*= *+l 


CURCHAR *= *+l 
SAVBUF *= *+40 
DSPTBL *= *+223 ; 

DSPTBH *= *+223 ; 

M4TBL *= *+16 
CHARH *= *+64 ; 

CHARL *= *+64 ; 

ROWBUF *= *+10 
CARLFT *= *+l 
PLYRDAT *= *+16 
LINCNT *= *+l 
BUGX *= *+l 
BUGY *= *+l 
DLIST *= *+268 
PFDATA *= *+1024 
HMEMSIZ = 880 
HMEM *= *+HMENSIZ 
ATRACT = $4D 
CH = $02FC 

CHI = 402F2 

M1OTBL .BYTE O,1O,20,30,40,50 


table of address ptrs to screen (low) 
__(hi gh ) 

addr. high for char index 
addr. low for char index 


; header mem 


1960 M5TBL .BYTE 0,5,10,15,20,25,30,35 


1980 


BYTE 40,45,50,55,60,65,70,75 


2000 M3TBL *= *+80 











4B8C 0000 
4BSE 0000 
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UPN DOWN 


•for Atari systems 


D2:U.M65 



4B90 0000 






=D40B 

2060 

VCOUNT 

= *D40B 



=D20A 

2080 

RANDOM 

= *D20A 



=0224 

2100 

WBLKD 

= *0224 



=E462 

2120 

XITVBV 

= *E462 



=9000 

2140 

CHARS = 

*9000 ; start of char data <size= 4k) 



=7E70 

2160 

SMEM = 

*8000-400 ; screen mem. (size=4480 bytes), must 






align to 4k 



=026C 

2180 

PFL.EN = 

620 ; # o-f Playfield chars 



=D01F 

2200 

CONSOL 

= *D0IF 



= D40E 

2220 

NMIEN = 

*D40E 



= D40A 

2240 

WSYNC = 

*D40A 



=0230 

2260 

SDLSTL 

= *0230 



=0231 

2280 

SDLSTH 

= *0231 



=0004 

2300 

R 

*D4 



=OOCA 

2320 

SCROLC 

= *CA 



=7000 

2340 

PMEM = 

*7000 ; player/missile mem. (first 768 not used) 



=D000 

2360 

HPOSPO 

= *D000 



= D001 

2380 

HPOSP1 

= *D001 



= D002 

2400 

HP0SP2 

= *D002 



=0003 

2420 

HP0SP3 

= *D003 



=0004 

2440 

HPOSMO 

= *D004 



=D005 

2460 

HP0SM1 

= *D005 



=0006 

2480 

HP0SM2 

= *D006 



=D007 

2500 

HP0SM3 

= *D007 



= D407 

2520 

PMBASE 

= $D407 



=02C0 

2540 

PCOLRO 

= *02CO 



=02C1 

2560 

PC0LR1 

= *02C1 



=02C2 

2580 

PC0LR2 

= *02C2 



=02C3 

2600 

PC0LR3 

= *02C3 



= 0012 

2620 

COLPMO 

= *D012 



= 0013 

2640 

COLPM1 

= *D013 



*0014 

2660 

C0LPM2 

= *D014 



=D015 

2680 

C0LPM3 

= *D015 



=026F 

2700 

GPRIOR 

= *026F 



*0008 

2720 

SIZEPO 

= *D008 



=0009 

2740 

SIZEP1 

= *D009 



=000A 

2760 

SIZEP2 

= *DOOA 



=D00B 

2780 

SIZEP3 

= *DOOB 



*E000 

2800 

OSCHARS = *E000 



*02F4 

2820 

CHBAS = 

*02F4 



=7300 

2840 

MO 

PMEM+768 



=7400 

2860 

PO = 

PMEM+1024 



=7500 

2880 

PI = 

PMEM+1024+256 



=7600 

2900 

P2 = 

PMEM+1024+512 



=7700 

2920 

P3 = 

PMEM+1024+768 



=022F 

2940 

SDMCTL 

= *022F 



=D010 

2960 

GRACTL 

= *D01D 



=7800 

2980 

IPF = 

*7800 ; start of playfield data 



=D405 

3000 

VSCROL 

= *D405 



*0012 

3020 

RTCLOK 

= *12 



4B92 

5000 A200 


3040 
3060 
3080 
3100 
3120 


0RG+*1OOO 
#0 : 


init stack 







5006 200153 3160 
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JSR ITABLES 


Atari systems 


• 


5009 

20C750 

3180 


JSR 

IF'FDATA 



r 


500C 

206B52 

3200 


JSR 

IDLIST 



|7' 


50 OF 

20B255 

3220 


JSR 

ITCHARS 



• 8 


5012 

20CC54 

3240 


JSR 

IHMEM 



9 | 

|_ 

5015 

200C52 

3260 


JSR 

ISMEM 





501 a 

20FC50 

3280 


JSR 

IVBI 



* 


501B 

208950 

3300 


JSR 

IPMEM 



n 


501E 

201F64 

3320 


JSR 

IOBJTB 

• 

n 

init OBJTBL 

jl3, 




3340 


JSR 

TINIT 



«) 


5021 

207267 

3360 


JSR 

ISFX 

« 

* 

init sound effects 



5024 

20146E 

3380 


JSR 

IHFLGS 


- 



5027 

A 9 00 

3400 


LDA 

#0 





5029 

8DC569 

3420 


STA 

TYPREF 



1 S' 


502C 

A 901 

3440 


LDA 

#1 





502E 

8DC669 

3460 


STA 

TYPREF+1 



w 


5031 

201269 

3480 


JSR 

DATEXP 

5 

expand data 

21 


5034 

A 900 

3500 


LDA 

#0 



22| 


5036 

8D0040 

3520 


STA 

PSCORO 

M 

•1 

init player’s score 



5039 

8DO140 

3540 


STA 

PSC0R1 



2<tj 


503C 

8DO240 

3560 


STA 

PSC0R2 



H 


503F 

8D0340 

3580 


STA 

ROUND 



ml 


5042 

20BB65 

3600 


JSR 

NEWRND 

fl 

setup next round 

n 

i_ 

5045 

A901 

3620 


LDA 

#1 

r» 

sound on 

28 


5047 

8DOS40 

3640 


STA 

SNDCTL 



m> 


504A 

A240 

3660 


LDX 

#64 

•i 

set car's X 

30j 


504C 

8EA642 

3680 


STX 

BUGX 



31 


504F 

A946 

3700 


LDA 

#70 





■rt 

tn 

o 

lil 

8D155B 

3720 


STA 

OLDBUGY 



33. 


5054 

A 030 

3740 


LDY 

#48 

• 

set car’s Y 

04 


5056 

8CA742 

3760 


STY 

BUGY 





5059 

A 900 

3780 


LDA 

#0 





505B 

8D115B 

3800 


STA 

BUGDIR 





505E 

A 90 7 

3820 


LDA 

#7 



m> ■ 


5060 

8D165B 

3840 


STA 

OLDBDIR 





5063 

20ED5E 

3860 


JSR 

SHOCAR 





5066 

A905 

3880 


LDA 

#5 





5068 

8D9442 

3900 


STA 

CARLFT 



b 


506B 

208054 

3920 


JSR 

ECAR 







3940 

• 

5 





* • 


506E 

A 9 00 

3960 


LDA 

#0 





5070 

8D0A40 

3980 


STA 

SCRSPD 





5073 

8D1240 

4000 


STA 

CHINDX 







4020 

■ 

n 







5076 

A93C 

4040 


LDA 

#$3C 


enable joystick portA 



5078 

8D02D3 

4060 


STA 

F'ACTL 





507B 

A980 

4080 


LDA 

#128 



r 1 ! 


507D 

8D185B 

4100 


STA 

JMF'NDX 





5080 

A 900 

4120 


LDA 

#0 



• 


5082 

8D125B 

4140 


STA 

BF'THCT 





5085 

4C2151 

4 160 


JMP 

MAIN10 







4180 

■ 





• 


5088 


4200 

I LOOP 






5088 

00 

4220 


BRK 








4240 






• 




4260 

5 









4280 

■ 







5089 


4300 

IPMEM 




• 


5089 

A970 

4320 


LDA 

# >PMEM 

5 

init PMBASE 



Business Forms, Inc, sv 1412RH 







5089 


4300 

IPMEM 





• 


5089 

A 9 70 

4320 

LDA 

# >PMEM ; init PMBASE 




m 
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< 










5 

508B 

8D07D4 

4340 

STA 

PMBASE 





6 

508E 

AOOO 

4360 

LDY 

#0 $ clear F'MEM 





7 

5090 

A205 

4380 

LDX 

#5 ; 5*256 bytes 




# 

8 

5092 

A 9 00 

4400 

LDA 

# <APMEM+768u ; set pointer to FMEM active area 





9 

5094 

85D4 

4420 

STA 

R+0 






5096 

A973 

4440 

LDA 

# >APMEM+768u 





1 1 

5098 

85D5 

4460 

STA 

R+l 





10 

12 

509A 

A 900 

4480 

LDA 

#0 



> 


13 

509C 


4500 

IPME10 




1 

• 


509C 

91D4 

4520 

STA 

(R+0),Y 



i 


15 

509E 

C8 

4540 

INY 




I' 


16 

509F 

DOFB 

4560 

BNE 

IPME10 






50 A1 

CA 

4580 

DEX 






.3 

50A2 

F005 

4600 

BEQ 

IPME20 






50A4 

E6D5 

4620 

INC 

R+l 



1 

# 


50A6 

4C9C50 

4640 

JMP 

IPME10 



P 



50 A 9 


4660 

IFME20 







50A9 

A931 

4680 

LDA 

#$31 ; enable 3rd col. combo, missiles as 5th 



2 

• 






plyr 



2 


24 

50AB 

8D6F02 

4700 

STA 

GFRIOR 





25 

50AE 

A 9 00 

4720 

LDA 

#0 ; 1>; size for all 



|2 

# 


50 BO 

8DOSDO 

4740 

STA 

SI ZERO 



(2 


/ 

50B3 

8D09DO 

4760 

STA 

SIZEF1 



r 



50B6 

8DOADO 

4780 

STA 

SIZEP2 




# 


50B9 

8DOBDO 

4800 

STA 

SIZEP3 





30 

50BC 

A93E 

4820 

LDA 

#$3E 






50 BE 

8D2F02 

4840 

STA 

SDMCTL 




# 


50C1 

A 90 3 

4860 

LDA 

#3 





33 

50C3 

8D1DD0 

4880 

STA 

GRACTL 






50C6 

60 

4900 

RTS 





m 




4920 

*! 









4940 





r 



50C7 


4960 

IFFDATA 




r 

m 


50 C 7 

A96C 

4980 

LDA 

# <FFLEN ; set # bytes to write 






50C9 

85D4 

5000 

STA 

R+0 






50CB 

A 90 2 

5020 

LDA 

# >PFLEN 



I 4 

m 


50 CD 

85D5 

5040 

STA 

R+l 



. 


$4. 

50CF 

A9B4 

5060 

LDA 

# CPFDATA ; set dest. ptr 



a 



SOD 1 

85D6 

5080 

STA 

R+2 






SOD 3 

A 94 3 

5100 

LDA 

# >PFDATA 





45 

SODS 

BSD 7 

5120 

STA 

R+3 





•i 0 

50 D 7 

A 9 00 

5140 

LDA 

# < IFF ; set source ptr 




m 

4/ 

50D9 

85D8 

5160 

STA 

R+4 






50 DB 

A978 

5180 

LDA 

# >IPF 





4 

50 DD 

85D9 

5200 

STA 

R+5 




*) 


50 DF 

AOOO 

5220 

LDY 

#0 






50E1 


5240 

IF'FDIO 






52 

50E1 

B1D8 

5260 

LDA 

(R+4) „ Y 




m 

53 

50E3 

91D6 

5280 

STA 

(R+2) , Y 





I 54 

50E5 

C8 

5300 

INY 






a 

50E6 

COOO 

5320 

CPY 

#0 





66 

50E8 

DOF 7 

5340 

BNE 

IPFDIO 



p 



50EA 

E6D9 

5360 

INC 

R+5 



_l 5 



50 EC 

E6D7 

5380 

INC 

R+3 





m 

m 


50EE 
50FQ __ _ 

r 2 


C6D5 

10EF 


5400 

5420 

5440 



IPFD20 


Moore Business Forms. Inc. ?v 1412RH 
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50F4 91D6 5480 STA <R+2),Y 

50F6 C8 5500 INY 

50F7 C4D4 5520 CRY R+0 

50F9 DOF7 5540 BNE 1PFD20 

50FB 5560 IPFD30 

50FB 60 5580 RTS 

5600 ; 

5620 ; 

5640 ; 

5660 ; 


50 FC 


5680 IVBI 


50FC 
50 FF 

AD0ED4 
293F 

5700 

5720 

L.DA 

AND 

NMIEN 

#$3F ; disable 

5101 

8D0ED4 

5740 

STA 

NMIEN 

5104 

A9FA 

5760 

LDA 

# < DLI1 

5106 

8D0002 

5780 

STA 

$0200 

5109 

A953 

5800 

LDA 

# >DLI1 

51 OB 

8DO102 

5820 

STA 

$0201 

51OE 

A98E 

5840 

LDA 

# <VBINT 

5110 

8D2402 

5860 

STA 

WBLKD 

5113 

A951 

5880 

LDA 

# >VBINT 

5115 

3D2502 

5900 

STA 

WBLKD+1 

51 18 

AD0ED4 

5920 

LDA 

NMIEN 

51 IB 

0940 

5940 

ORA 

#$40 

51 1D 

8D0ED4 

5960 

STA 

NMIEN 

5120 

60 

5980 

RTS 


6000 ; 

6020 ; 

6040 ; 


34 

36 




6060 

6080 

5 

■ 

f 




5121 


6100 

MAINI0 



i: 


5121 

A 900 

6120 


LDA 

#0 

; defeat attract 

38 


5123 

854D 

6140 


STA 

ATRACT 




51 25 

209367 

6160 


JSR 

SCROLL 6Y6C 



5128 

20CF5C 

6180 


JSR 

PMOVE 


L 


512B 

20586E 

6200 


JSR 

FL.GSCR 


12 


512E 

208063 

6220 


JSR 

MOVE 


W3 


5131 

206264 

6240 


JSR 

TINIT 


4 


5134 

20226D 

6260 


JSR 

FLGHIT 


5 




6280 

■ 




h 




6300 

M 

Check 

■for trucks hitting player 





6320 

u 






5137 

AD185B 

6340 


LDA 

JMPNDX 

; only do this if not jumping 



513A 

1022 

6360 


BPL 

MAIN15 


50 


513C 

208965 

6380 


JSR 

COLISN 




513F 

901D 

6400 


BCC 

MAIN15 




5141 

A9FF 

6420 


LDA 

#-l 

; cancel truck 



5143 

9D1D63 

6440 


STA 

TYPE j, X 




5146 

200E5A 

6460 


JSR 

ERASE 

; erase truck 

i5 


5149 

20EC65 

6480 


JSR 

VWDIE 




514C 

CE9442 

6500 


DEC 

CARLFT 




514F 

AD9442 

6520 


LDA 

CARLFT 

* 



5152 

C906 

6540 


CMP 

#6 




5154 

9005 

6560 


BCC 

MAIN08 




5156 

A 9 05 

6580 


LDA 

#5 



— 

5158 

8D9442 

6600 

_ 

STA 

CARLF1 



515B 6620 MAINOG 



MHZ 1 1 1 A! '<111J DJ 9JOOW 


in iii in 


P«§E6- UPN DOWN - for Atari systems 


515B 208054 6640 JS R ECAP . , 

6660 ; 5 show extra cars 

5A5E 6680 MAIN15 

SI* **>0 LDA CONSOL 

6720 AND #2 

£008 6740 BNE MAIN20 

516 ° A90 Q 6760 LDA #0 

• 16A 4C88ul. 6800 JMP MAIN50 

jl6D 6820 MAIN20 

51 1 70 -9m D ° 6840 LDA CONSOL 

1/0 ^ ? - ) l 6860 AND #1 

^174 A9FF 6880 BNE MAIN30 

0174 A9FF 6900 LDA 

less"? 6920 STA SC ^PD 

^79 4C8851 6940 JMP MAIN50 

« 6960 MAI N30 

i\l C F *’*> LDA CONSOL 

n ^.904 7000 AND #4 

J2i 7020 _BNE MAIN50 

Ido A901 7040 L.DA #1 

185 8D0A40 7060 STA SCRSPD 

. _ 7080 ; 

7100 MAIN50 

5138 20EE5A 7120 j S R PAUSE 

518B 4C2151 7140 JMP MAIN10 

7160 5 
7180 ; 

518E 7200 VBINT 

7220 ; 

518E A21F 7240 LDX #31 

;!;■ 7260 VBIN05 

5190 B5D4 7280 LD~ p+r» y 

5192 9D1440 7300 STA SaObSf.x' “ V * r«,.. 

- ,19S LA 7320 DEX 

5196 10F8 7340 BPL VBIN05 

7360 ; 

7380 ; Set colors for header 
7400 j 

5198 A90A 7420 LDA #*oa . i 

519A 8DC502 7440 s^A 402C5 

8DC602 7480 s“ *02C6 ? ^ 

“Jg H ? 02 ^ S™ *0200 n 5 Set dU VeCt ° r 

!«. 5 S« ss ts 

7580 ; 

7600 ; Setup header P/M flags 

51 AC AC536E 7640 ’ 1 DY HFPOS . upn,- 

51AF nrn 7 nn fii-rub ; HPOS 

C * rr 07D0 7660 STY HP0SM3 

olB, C8 7680 I|\|y 

51B3 C8 77 00 i NY 

^B7 ™ OAD ° 7720 STY H P0SM2 

C J ® 7 “ 7740 INY 

° 1 B8 _ LS 7760 I My 

51B9 8C05D0 7780 STY HP0SM1 
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51BC 

C8 

7800 


INY 

5 i BD 

cs 

7820 


INY 

51 BE 

8C04DO 

7840 


STY HF’OSMO 

51C1 

AD546E 

7860 


LDA HFPOS+1 

51C4 

8D00D0 

7880 


STA HPOSF’O 

51C7 

AD556E 

7900 


LDA HFPOS+2 

51CA 

8DO 1DO 

7920 


STA HP0SP1 

51 CD 

AD566E 

7940 


LDA HFPOS+3 

S i DO 

8DO2DO 

7960 


STA HP0SP2 

51D3 

AD576E 

7980 


LDA HFPGS+4 

5.1 D6 

8D03D0 

8000 


STA HP0SP3 



8020 

n 


51D9 

ADE26D 

3040 


LDA FCOLOR ; colors 

51 DC 

8D19D0 

8060 


STA $D019 

5 IDF 

ADE36D 

8080 


LDA FCOLOR-*-1 

51E2 

8D12DO 

8100 


STA COLPMO 

51E5 

ADE46D 

8120 


LDA FCOLOR +-.2 

51E8 

SD13D0 

8140 


STA COLPM1 

51EB 

ADE56D 

8160 


LDA FC0L0R+3 

51 EE 

8D14D0 

8180 


STA C0LPM2 

51F1 

ADE66D 

8200 


LDA FC0L.0R+4 

51F4 

8D15D0 

8220 


STA C0LPM3 



8240 

■ 




8260 

• 




8280 


Sounds 



8300 

u 


51F7 

AD0540 

8320 


LDA SNDCTL ; sound enabled? 

51 FA 

F003 

8340 


BEQ VBIN32 ; no - branch 

51FC 

20DD66 

8360 


JSR SFX ; else do sounds 



8380 

« 




8400 

M 

Restore scratchpad re?gs 



8420 

■ 


51FF 


8440 

VBIN32 

51 FF 

A21F 

8460 


LDX #31 

5201 


8480 

VBIN40 

5201 

BD1440 

8500 


LDA SAVBUF,X 

5204 

95D4 

8520 


STA R+0,X 

5206 

CA 

8540 


DEX 

5207 

10F8 

8560 


BPL VBIN40 

5209 

4C62E4 

8580 


JMP XITVBV 



8600 

m 




8620 

■ 

Init. the screen memory with 120 1i 



8640 

■ 

pointed to by SCROL ptrs 



8660 

■ 


520C 


8680 

ISMEM 



8700 

•• 

LDA NMIEN 



8720 

u 

AND #$BF ; disable VBI 



8740 

** 

STA NMIEN 

520C 

AD0B40 

8760 


LDA SCROLF 

520F 

48 

8780 


PHA 

5210 

A5CA 

8800 


LDA SCROLC 

CT O -J O 
.L jL 

48 

8820 


PHA 

5213 

A5CB 

8840 


LDA SCROLC+1 

5215 

48 

8860 


PHA 

5216 

A970 

8880 


LDA #112 ; do 112 PF lines 

5218 

85DD 

8900 


STA R+9 

521A 

AE0840 

8920 


LDX DSCROL ; qet pointer to SMEM 

52 ID 


8940 

ISME10 





D2:L 


52ID BD3C40 
5220 85D4 
5222 BD1B41 
5225 85D5 
5227 20C868 

522ft C6DD 
522C FQ32 

522E E8 
522F EE0B40 
5232 AD0B40 


'-'20.5 
5237 

5239 
523B 
523E 

5240 

5241 
5243 
5245 
5247 


C910 

D0E4 

ft 900 

SD0B40 

ftSCft 

IS 

690A 
S5CA 
A5CB 
6900 


5249 85CB 
524B C946 
5240 DOCE 
524F A5CA 
5251 C920 
5253 DOCS 
5255 A9B4 
5257 85CA 

5259 ft943 
525B 85CB 
5250 4C1D52 

5260 

5260 68 

5261 85CB 

5263 68 

5264 85CA 

5266 68 

5267 8D0B40 


526ft 60 


526B 

526D 

5270 

5273 

5276 

5278 

527B 

527D 

5280 


A 9 70 

8DA842 

8DA942 

8DAA42 

A 94 2 

8DAB42 

A9B4 

8DAC42 

A947 


8960 

8980 

9000 

9020 

9040 

9060 

9080 

9100 

9120 

9140 

9160 

9180 

9200 

9220 

9240 

9260 

9280 

9300 

9320 

9340 

9360 

9380 

9400 

9420 

9440 

9460 

9480 

9500 

9520 

9540 

9560 

9580 

9600 


LDft DSPTBL..X 
ST ft R+0 
LDft DSPTBH,X 
STA R-f-l 
JSR PFLINE ; 

DEC R+9 
DEC! ISME30 


<0 > 1) to SMEM begin 


write a PF i ine 


9620 ISME30 


I NX . llri . 

T .. n ji Llpdcl 

INC SCROLF 
LDft SCROLF 
CMP #16 
BNE ISME10 
LDft #o 
Sift SCROLF 
LDft SCROLC 
CLC 

ADC #10 
STA SCROLC 
LDft SCROLC+1 
ADC #0 
STA SCROLC+1 

CMP # >pfdata+pflen 

BNE ISME10 
LDft SCROLC 
CMP # CPFDATA+PFLEN 
BNE ISME10 

LDft # <PFDft T ft ; reset 
STA SCROLC 

LDft # >PFDATA 
STA SCROLC+1 
'JMP ISME10 


update screen pointer- 


9640 
9660 
9680 
9700 
9720 
9740 
9760 
9780 
9800 
9820 
9840 
9860 : 
9880 ; 
9900 ; 
9920 1 
9940 
9960 
9980 
010000 
010020 
010040 
O10060 
010080 
010100 


PLA 

STA SCROLC+1 
PLA 

STA SCROLC 
PLA 

STA SCROLF 

ft 

; LDA NNIEN 
; ORA #$4Q 
5 STA NMIEN 
RTS 

Jl 

! Init. the DLIST 

Jl 

IDL1ST 

LDA #$70 
STA DLIST 
STA DLIST+1 
> STA DLIST+2 
LDA #$42 ; 

STA DLIST+3 
’ LDA # <HMEM 

) STA DLIST+4 

LDA # >HMEM 


1 line mode 2+1oad 


__P_AGE 9 URN DOWN - -f 
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Moore Busine 







5282 

5285 

5287 

528A 

528C 

528F 

5291 

5293 

5293 

5296 

5297 
5299 
529B 


8DAD42 

A982 

8DAE42 

A 900 

8DAF42 

A90E 

A 2 00 

9DB042 

E8 

E00F 
DOF 8 
A98E 
8DBF42 


52AO A98D 


52A2 8DC042 


52A5 A200 
52A7 A96D 
52A9 

52A9 9DC142 

52AC E8 
52AD E8 
52AE E8 
52AF EOFO 
52B1 D0F6 


52B8 
52BB 
52BD 
5 2 CO 
52C2 
52C5 
52C7 
52CA 
52CD 
52CF 
52D1 
52D3 
52D5 
52D8 
52DA 
52DD 
52DF 
52E2 


8DAE43 

A941 

8DB143 

A9A8 

8DB243 

A942 

8DB343 

A 900 

8D0840 

8D0B40 

A9B4 

85CA 

A 94 3 

85CB 

20E352 

A9A8 

8D3002 

A942 

8D3102 

60 


52E3 

52E3 AD0840 
52E6 18 


010120 STA DLIST+5 

010140 LDA #$S2 ; 1 line mode 2 + DLI 

010160 STA DL1ST+6 

010180 LDA #$00 ; blank 1 scan line 

010200 STA DLIST+7 

010220 LDA #$0E ; 15 lines mode E 

010240 LDX #0 

010260 IDL110 

010280 STA DLIST+8.X 

010300 INX 

010320 CPX #15 

010340 BNE IDL110 

010360 LDA #$8E ; 1 line mode E + DLI (top flag DLI) 

010380 STA DLIST+23 

010400 ; 

010420 LDA #$8D ; 1 line mode D + DLI (blank line to 

separate header and play-field) 

010440 STA DLIST+24 
010460 ; 

010480 LDX #0 

010500 LDA #$6D 

010520 IDLI30 

010540 STA DLIST+25,X ; 80 lines mode D w/load + vert, scroll 

enable 

010560 INX 

010580 INX 

010600 INX 

010620 CPX #240 

010640 BNE IDLI30 

010660 ; 

010680 STA DLIST+262 

010700 LDA #$41 ; jump and wait instr. 

010720 STA DLIST+265 

010740 LDA # <DLIST 

010760 STA DLIST+266 

010780 LDA # >DLIST 

010800 STA DLIST+267 

010820 LDA #0 ; reset pointer -for DLIST scroll 

010840 STA DSCROL ; to top of SMEM 

010860 STA SCROLF 

010880 LDA # <PFDATA 

010900 STA SCROLC 

010920 LDA # >PFDATA 

010940 STA SCR0LC+1 

010960 JSR CHGDSP ; set DLIST pointers 

010980 LDA # <DLIST ; select DLIST 

011000 STA SDLSTL 

011020 LDA # >DL1ST 

011040 STA SDLSTH 

011060 RTS 

011080 ; 

011100 ; Write the display list pointers 
011120 ; using the value in DSCROL to 
011140 ; determine tne first line. 

011160 CHGDSP 

011180 LDA DSCROL ; use to index first line 

011200 CLC ; first line is +16 to leave room for 



tsaufsng ajooyy 





h 

52E7 

6910 

011220 

6 

52 E 9 

AA 

011240 

7, 

52EA 

AO 00 

011260 


52EC 


011280 


52EC 

BD3C40 

011300 


52EF 

99C242 

011320 


52F2 

BD1B41 

011340 


52F5 

99C342 

011360 

3 i 

52F8 

E 8 

011380 

4 | 

52F9 

C 8 

011400 


52FA 

C 8 

011420 

cz 

52FB 

C 8 

011440 

7 

52FC 

COFO 

011460 

3 — 

52FE 

DOEC 

011480 


5300 

60 

011500 


2 

Q3j 

( 3-1 

!( 

- 

T 

38j 

3? 


S' 


5301 

5301 

5303 

5305 

5307 

5309 

530B 

530D 

530D 

530F 

5311 

5313 

5315 

5315 

5317 

531A 

531C 

53 IF 

5320 

5321 


A270 

A93C 

85D6 

A940 

85D7 

A000 

A 9 70 
85D4 
A97E 
85D5 

A5D5 

991B41 

A5D4 

993C40 

C8 

CA 

F01D 


5324 

5326 

5328 

532A 


18 

6928 

85D4 

90EB 

E6D5 


get low byte ot pointer 
S write to DLIST 
high byte 

next DSPTBL value 
next DLIST pointer 


80 lines 


011520 
011540 
011560 
011580 
011600 
011620 
011640 
011660 
011680 
011700 
011720 
01 1740 
011760 
011780 
011800 
011820 
011840 
011860 
011880 
011900 
011920 
011940 
011960 
011980 
012000 
012020 
012040 
012060 
012080 
012100 
012120 
012140 
012160 
012180 
012200 
012220 
012240 : 
012260 : 
012280 
012300 
012320 
012340 
012360 


ADC #16 
TAX 

LDV #0 
M0VD10 

LDA DSPTBL,X ; 
STA DLIST+26,Y 
LDA DSPTBH,X ; 
STA DLIST+27,Y 
INX 
INY 
INY 
INY 

CF'Y #240 
BNE M0VD10 
RTS 

; INIT THE TABLES 


; Setup DSPTBL, DSPTBH with pointer 
; values -for the display list 
; scroll. Though there are 80 
; There are 223 entries in DSF'TB, 112 to 
; handle the addresses of the 80’displayed mode 
; lines, 16 for "before" and 16 for "after" buffers, 
; 111 to extend the table so that even 

; when indexing starting at line #111 

; there will be no need to wraparound the index 

■ *" ■ ■ ■ . , . —-____ _____ —— 

? 

a 

9 

I TABLES 

LDX #112 ; do first 80 pointers 

LDA # <.DSPTBL ; set pointer to DSPTBL 

STA R+2 

LDA # :: DSPTBL 

STA R+3 

; index to DSPTBL 


LDY #0 
ITAB05 

LDA # <SMEM 
STA R+0 
LDA # >SMEM 
STA R+l 
I TAB 10 
LDA R+l 
STA DSPTBH,Y 
LDA R+0 
STA DSPTBL,Y 
INY 
DEX 

BEQ ITAB20 

LDA R+l 
AND #$F0 
STA R+4 
LDA R+0 
CLC ! 

ADC #40 : 

STA R+0 
BCC ITAB10 
INC R+l 


set initial pointer value 


store a pointer 
high byte 

low byte 


save high nybble for 4k boundary check 


update pointer value 
40 bytes/mode line 
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532C 4C1553 


012380 


f '*h /I 


JMP ITAB10 


; next pointer 






532A E6D5 


012340 

012360 


BCC ITABIO 
INC R+l 


PAGE 

1 1 UPN 

DOWN - -for 

Atari systems 



D2:U. 

532C 

4C1553 

012380 


JMP ITABIO ; 

next pointer 




012400 

■ 






012420 

■ 

Check for 4k 

boundary crossing 




012440 

■ 

9 




532F 


012460 

ITAB15 



532F 

A5D5 

012480 


LDA R+l 



5331 

29F0 

012500 


AND #$F0 



5333 

C5D8 

012520 


CMP R+4 



5335 

FODE 

012540 


BEQ ITABIO ; 

ok - branch 


5337 

85D5 

012560 


STA R+l ; 

else force to 4k 


5339 

A900 

012580 


LDA #$00 



533B 

85D4 

012600 


STA R+0 

- 


533D 

4C1553 

012620 


JMP ITABIO 





012640 

• 






012660 

■ 

do last 111 pointer values 




012680 

N 




5340 


012700 

1TAB20 



5340 

A5D6 

012720 


LDA R+2 ; 

is this the first 

time here? 

5342 

C93C 

012740 


CMP # CDSPTBL 



5344 

DOOE 

012760 


BNE ITAB30 5 

no - already did 

this, branch 

5346 

18 

012780 


CLC ; 

move pointer to DSF'TBL 

5347 

6970 

012800 


ADC #112 



5349 

85D6 

012820 


STA R+2 



534B 

9002 

012840 


BCC ITAB28 



534 D 

E6D7 

012860 


INC R+3 



534F 


012880 

ITAB28 



534F 

A26F 

012900 


LDX #111 ; 

111 more values 


5351 

4C0D53 

012920 


JMP ITAB05 





012940 


•« 





012960 

■ 

init CHARH,CHARL index to char 




012980 

» 

addresses. 





013000 

• 




5354 


013020 

ITAB30 



5354 

A 9 00 

013040 


LDA # <CHARS 

; init first addr 

to CHARS star 

5356 

85D4 

013060 


STA R+0 



5358 

A 9 90 

013080 


LDA # >CHARS 



535A 

85D5 

013100 


STA R+l 



535C 

AO 00 

013120 


LDY #0 



535E 


013140 

ITAB40 



535E 

A 51)5 

013160 


LDA R+l ; 

wr it e a pointer 


5360 

990A42 

013180 


STA CHARM,Y 



5363 

A5D4 

013200 


LDA R+0 



5365 

994A42 

013220 


STA CHARL,Y 





013240 

•» 




5368 

C8 

013260 


I NY 



5369 

C040 

013280 


CPY #64 ; 

do for # chars in 

CHARS 

536B 

FOOC 

013300 


BEQ ITAB50 





013320 


5 



536D 

18 

013340 


CLC 



536E 

6940 

013360 


ADC #64 



5370 

85D4 

013380 


STA R+0 



5372 

90 E A 

013400 


BCC ITAB40 



5374 

E6D5 

013420 


INC R+l 



5376 

4C5E53 

013440 


JMP ITAB40 



5379 


013460 

ITAB50 





013480 

5 






013500 

■ 

3 

init muIt. b y 

4 table for fine 




013520 

9 

scrol1 add in 

calc. 
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015500 ; init mult, by 4 table for fine 
013520 ; scroll add in calc. 
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013540 

a 

■f 



5379 

A93C 

013560 


LDA #60 


537B 

AO OF 

013580 


LDY #15 


537D 

38 

013600 


SEC 

set for subt. 

537E 


013620 

ITAB60 


537E 

99FA41 

013640 


STA M4TBL,Y 


5381 

E904 

013660 


SBC #4 


5383 

88 

013680 


DEY 


5384 

1 OF 8 

013700 


BPL ITAB60 




013720 

a 





013740 

a 

init *3 table 




013760 

a 



5386 

A9F0 

013780 


LDA #80*3 ; 

80 entries 

5388 

A24F 

013800 


LDX #79 


538A 

38 

013820 


SEC 


538B 


013840 

ITAB70 


539B 

E903 

013860 


SBC #3 


538D 

9D3A4B 

013880 


STA M3TBL,X 


5390 

CA 

013900 


DEX 


5391 

10F8 

013920 


BPL ITAB70 




013940 

5 



5393 

60 

013960 


RTS 




013980 

5 





014000 

a 

INIT THE VARIABLES 



014020 

a 

!* 



5394 


014040 

I VARS 


5394 

A 900 

014060 


LDA #0 


5396 

8DFB6F 

014080 


STA FTOPDLI 




014100 

a 

Jl 



5399 

A 950 

014120 


LDA #FDLY ; 

init flag delay 

539B 

8D216D 

014140 


STA FDLYCT 


539E 

A 9 00 

014160 


LDA #0 ; 

no flag togqle 

53A0 

8D1F6D 

014180 


STA FTOGL 




014200 

fl 



53A3 

A 200 

014220 


LDX #OBJMAX—1 


53A5 

A9FF 

014240 


LDA #*FF 


53A7 


014260 

IVAR10 


53 A 7 

9D7763 

014280 


STA DVR-LAY, X 


53AA 

CA 

014300 


DEX 


53AB 

1 OF A 

014320 


BPL IVAR10 




014340 

f» 



53AD 

60 

014360 


RTS 




014380 

a 





014400 

*i 





014420 


.INCLUDE #D2: 

HDRSUB.M65 



1000 


.PAGE "header 

subroutines" 


counter 
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for Atari systems 


header subroutines 




D2:HDRSUB.M65 







1020 


HDRSUE 

. M65 








1040 

; SUBROUTINES TO 

HANDLE THE 







1060 

; HEADER 

DISPLAY 

FOR UPN DOWN 







1080 

1100 











1120 











1140 

*! 









1160 

; *ADDSCOR* 






3 i 


1180 


ADD THE 2 BYTE 

BCD VALUE IN R+5,R+6 





t 


1200 


TO THE 

3 BYTE BCD VALUE IN R+2,R+3,R+4 







1220 

5 AND DISPLAY AS 

A 6-DIGIT DECIMAL 







1240 

; NUMBER AT SCREEN LOCATION POINTED 







1260 

; TO BY 

R+0,R+l 








1280 

1 







53AE 


1300 

ADDSCOR 







53AE 

F8 

1320 


SED 

5 

decimal mode 





53AF 

A5D6 

1340 


LDA 

R+2 ; 

get L.SB 





53B1 

18 

1360 


CLC 







53B2 

65D9 

1380 


ADC 

R+5 






53B4 

85D6 

1400 


STA 

R+2 






53B6 

A5D7 

1420 


LDA 

R+3 ; 

middle byte 





53B8 

65DA 

1440 


ADC 

R+6 






53 BA 

85D7 

1460 


STA 

R+3 




i 

P 

53BC 

A5D8 

1480 


LDA 

R+4 





I 2 

53BE 

6900 

1500 


ADC 

#0 





2 

53C0 

85D8 

1520 


STA 

R+4 






53C2 


1540 

ADDS10 






If 

5302 

A 00 5 

1560 


LDY 

#5 ; 

ptr to dest. 





53C4 

A 2 00 

1580 


LDX 

#0 ; 

index to byte being written 





53C6 


1600 

ADDS20 







53C6 

B5D6 

1620 


LDA 

R+2,X ; 

qet byte 





53C8 

290F 

1640 


AND 

#*0F ; 

write low nybble 





53CA 

91D4 

1660 


STA 

(R+0),Y 






53CC 

B5D6 

1680 


LDA 

R+2,X ; 

write high nybble 





53CE 

4A 

1700 


LSR 

A 





r 

53CF 

4 A 

1720 


LSR 

A 





u 

5 3 DO 

4A 

1740 


LSR 

A 






53 D 1 

4 A 

1760 


LSR 

A 






53D2 

88 

1780 


DEY 







53 D 3 

91D4 

1800 


STA 

(R+0),Y 






53D5 

E8 

1820 


I NX 







53D6 

88 

1840 


DEY 






i 

53D7 

1OED 

1860 


BF'L 

ADDS20 






53D9 

D8 

1880 


CLD 







53 DA 

60 

1900 
1920 
1940 


RTS 

1960 








1980 

INIT THE PLAYEF 

DATA TABLE 





2000 

_ 







53DB 


2020 

IPLYRDT 







53DB 

A 9 00 

2040 


LDA 

#0 





p 

53DD 

A20F 

2060 


LDX 

#15 






53DF 


2080 

IPLY10 







53DF 

9D9542 

2100 


STA 

PLYRDAT,X 

; clear PLYRDAT data area 





53E2 

CA 

2120 


DEX 







53E3 

1 OF A 

2140 


BF'L 

I PLY 10 









) 





53E3 lOFA 


2140 
2160 ; 


BPL IPLY1O 


m 
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5 

53E5 

A9BA 

2180 


LDA 

# <HMEM +6 ; set pointer to PLYR1 

6 

53E7 

8D9542 

2200 

STA 

PLYRDAT 

7 

53EA 

A947 

2220 


LDA 

# >HMEM +6 

6 

53EC 

8D9642 

2240 


STA 

PLYRDAT+1 

9 

53EF 

A9E2 

2260 


LDA 

# <HMEM+46 ; " PLYR: 


53F1 

8D9D42 

2280 


STA 

PLYRDAT +8 


53F4 

A947 

2300 


LDA 

# >HMEM+46 


53F6 

8D9D42 

2320 


STA 

PLYRDAT +8 


53F9 

60 

2340 


RTS 





2360 







2380 

5 

DLI routine to change colors 

Li 



2400 

■ 

between header text (top) and 




2420 

M 

header 

graphics (bottom) areas 

y 



2440 

*1 




53FA 


2460 

DLI1 



53FA 

48 

2480 


PHA 



53FB 

A 9 00 

2500 


LDA 

#$00 ; black 


53FD 

8D0AD4 

2520 


STA 

WSYNC 

E3 

5400 

8D1AD0 

2540 


STA 

*D01A 

H 

5403 

A90E 

2560 


LDA 

#*0E ; white 

H 

5405 

8D16D0 

2580 


STA 

$D016 


5408 

A986 

2600 


LDA 

#$86 ; blue 


540A 

8D17DO 

2620 


STA 

$D017 


540D 

A91E 

2640 


LDA 

#$ 1 E ; yellow 


54 OF 

8D18D0 

2660 


STA 

$D018 


5412 

A965 

2680 


LDA 

# <TFDLI ; set vector to next DL 


5414 

8D0002 

2700 


STA 

$0200 


54.17 

A954 

2720 


LDA 

# >TFDLI 


5419 

8D0102 

2740 


STA 

$0201 


541C 

68 

2760 


PLA 



54 ID 

40 

2780 


RTI 





2800 

■ 

3 






2820 

■ 

» 




54 IE 


2840 

DL12 



54 IE 

48 

2860 


PHA 



541F 

A9C6 

2880 


LDA 

#$C 6 ; green 


5421 

8D0AD4 

2900 


STA 

WSYNC 


5424 

8D1AD0 

2920 


STA 

$D01A 


5427 

A900 

2940 


LDA 

#0 5 black 


5429 

8D18D0 

2960 


STA 

$D018 


542C 

A9F6 

2980 


LDA 

#$F 6 ;brown 


542E 

8D16D0 

3000 


STA 

$D016 


5431 

A9B9 

3020 


LDA 

# <FDLI ; set flag DLI vect. 

4: 

5433 

8 D 0002 

3040 


STA 

$0200 


5436 

A96F 

3060 


LDA 

# >FDLI 


5438 

8D0102 

3080 


STA 

$0201 

P' 



3100 

5 






3102 

• 

n 

Restore VW colors 




3104 

■ 

!» 



r 

543B 

A99A 

3120 


LDA 

#$9A ; blue 

r 

" 543D 

8 D12DO 

3140 


STA 

COLPMO 

L 

5440 

8D14D0 

3160 


STA 

C0LPM2 

b 

5443 

A906 

3180 


LDA 

#$06 ; grey 


5445 

8D13D0 

3200 


STA 

C0LPM1 

> 

5448 

8D15D0 

3220 


STA 

C0LPN3 




3240 

■ 

!» 






3241 

■ 

Restore VW position _ 

) 



3242 

■ 
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ore disp 


M 



—1 







- Restore VW oosition 
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544B ADI860 _3243 

544E 8 DC) 6 b 6 “ 3244 


BLJGHO 

HPOSPO 


545D ADi860 3249 LDA BUGH, 


5460 8D03D0 3250 STA HPOSP 


D2« HDRS.UB M65 


‘.54^1 AD 1960 
5454 QJDdiDO 
; '5457' AD1A60 , 

3245 

,3246 

'3247 

LDA 

STA 

LDA 

BUGH1 

HPOSP1 

BUGH2 











'545A 8D02D0 

3248 

STA 

HPQSP2 




_ _ _ - _ 

-- 

- 

- - - — 

- 

- - 

— • 


2 # 

3 

# 


<&465 
:^448 
.^466 A9LE 


5468 8D0002 
5466 A954 
546D 8D0102 


5478 F00 4_ 

547A 68 _~ 

547B 4CB96F 


547£ 68 
547P 40 


5480 


5480 A 954 
'5482 85D4 


548A 

548A A000 


548C 84DD 


548E, 

5WE A5DD 
5490 C905 


5494 CD9442 


5497 BOOP 


5499 BD4A55 
549C 91D4 
549E E 8 


3300 


3320 


3340 


3360 

'3380 

3400 

3420 

3440 

3460 


3540 

3560 

3580 


,3600 

3620 

3640 


3660 


368 0 

3700 

3720 

3740 

3760 

3780 

3800 

3820 


; set, j. ndex to FDLISEQ 
need top DLI? 


_!__yeB_restore st ack _ 

: do -flag DLI 



3900 

3920 


3940 

3960 

“5980 

4*000 


4020 


4040 


4060 


>80 

.00 

20 


TOP FLAG DLI 


TFDL.I 

F*HA 

LDA # CDLI2 
STA $0200 
LDA # >DLI2 
SfA $0201 ' 


ADA #0 
STA FDLINDX 
LDA FTOPDLI 


BED. DLI220 

PLA _ 

JMP FPLI 


DLI220 
PLA 
RTI 


; DRAW THE PLAYERS EXTR A CARS 
5 IN HMEM. NUMBER OF CARS DRAWN * 

5 IS 11 CARLFT" 

ECAR ’ _ 

' LDA# <HM EMt 160 ; init gtr to HMEM 
STA R+0 ~ ______ 


LDA # >HMEM-f 160 
STA R+l 
LDX #0 


ECAR 10 ______ „ _ 

LDV #0 _ „ ' 


STY R+9 ____ 

ECAR20 

LDA R+9 jj^. get count o-f chars drawn 

CMP #5 , * - - 


BEQ ECAR50 


CMP CARLFT 




I NX 


N 

D 

I 

M 


ECAR30 


done with row _ 

BCS ECAR30 ; yes - branch to write blanks 
LDA ECARDAT S X ; ‘write car data, g'et byte 
STA < R+0 ) 5 Y 

write next byte 


Moore Business 
















54A5 4CB054 
54A8 


4200 


JMP ECAR40 


4220 ECAR30 


4 
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54A8 ^A900 
54AA 91D4 


4240 

4260 


LDA #0 

STA <R+Q)„Y 


write blanks 




23[ 






•h 


< 5 .' 


r 


• 

3 

9 

rp4&i> 'Q8 

54AE 9104 

4300 

4320, 

I NY 

STA 


10 

54 BO 

4340 ECAR40 

• 

II 

54BO E6DD 

4360 

INC 1 


12 

54B2 CA 

4380 

DEX 


13 





INX 


j.. j 


—a. 

Car 


i ric count of car s dr awn on row 
continue - set X back to data for 


>55464*. -4C8E54 


4400 

•4420 


I NY 


nex.tr.sp^qe' 


JMP ECAR20 ; ne xt c haracter 


54B7 

54B7 E016 


4440 

4460 

4480 


ECAR50 

CPX #22 


54 B 9 
54 BB 


54BC 

54BD 

54BF 


;B010 
EQ 
E8 
A5D 4 
18 


c heck done (12 r ows*2 bytes/row 


4500 

4520 

4540 

4560 

4580 


BC0 ECAR60’ 

INX 

INX 


did jLndpx 1 *- 1 -! for 
set ‘to. hew data 


ing- at: 0 


k^A R+0 
CLC ~ 


j u pdate H MEM ptr to_ next .row 


,54Cb 

'M& 

'5404 


6928. 

'Mp4 

90G4. 


4.600 ADD #4Q 

4620 ;STA R+b 

4640 BCC .ECARIO 


40. ■ b y t e s71 X rye 


54C6 E6D5 


5.4 D 8 
54 CB 


4C8A54 


4660 

4680 

4700 


INC R+l 
JMP ECARIO 


do next ’row 


ECAR60 


,5.4GB 60' 


4720 

-4740’ 

4760 


RTS 

2NIT THE HEADER MEM'. 


54 CC_ 

.54CC A24F 


4780 

4800 

4820 


IHMEM 

LDX #79 


; init text from table 



' 54,CE 


4840’ 

THME1Q 



54AD 

006255 

486b. 

.PDA 

IHTXti, x 


,040T 

9DB44.7 , 

48‘80 

,. , . STA 

HMEM, X’ 


54D4 

CA 

4900 

DEX 



54D5 

10F7 

4920 

BPL 

IHME10 




4940 

; 



‘ ' * 


4,960 

-$ 'clear 

next header bytes 'for 




4980 



54 D7 

A20i5 

5000 

LDX 

# >HMEMSIZ-80 


54D9 

A000 

5020 

LDY 

#0 


54 DB 

A 904 

5040 

LDA 

# CHMEM+80 


54DD 

85D4 

5060 

STA 

R+0 


‘540F 

A948 

5080 

.LDA 

# >HMEM+80 


•5.4 El 

.85 D 5 

51 pb 

STA 

R+l 


-54E3" 

A 90b 

5120 

LDA 

#0 


54E5 


5140 

IHME20 



54E5 

91D4 

5160 

STA 

<R+0) j, Y 


54 E7 

C8 

5180 

I NY 


" ' 

54E8; 0OF0 

5200 

BNE 

IHME20 


54EA 

CA. 

,522b 

DEX 



54EB 

Fobs 

5240 

BEQ 

IHME30 


54ED 

E6D5 

5260 

INC 

R+l ; next page 


54EF 

4CE554 

5280 

JMP 

IHME20 


54 F 2 


5300 

IHME30 



54F2 

A220 

5320 

LDX 

# <HMEMSIZ—80 



54F4 


5340 IHME4C 


Moore Business Forms, Inc. sv I412RH 















54F2 A22Q 
54F4 


5320 _ LDX ft <HMEMSI Z—80 

5340 IHME40 
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5£F4 91D4 
54F6 ~C8 


5457 pe 


54FA 60 


STA (R+0),Y 


00 

DEX 


20 

BNE 

IHME40 

40 

RTS 



5860 

B 

5880 

1 

■ 

DRAW A FLAG TO A MODE 

5900 

A MODE "E" SCREEN. 


5980 


6000 


6020 


Dest. is in <R+0,R+1> 
Color mask is passed in 


R+3=$00 black <invisible) 


$55 white 


green 


FB 


54FB 8A 


54FC 48 


6280 EFLAG 


6282 


54 FD 
54 FF 


550 1 
550 1~ 
5504 


55Q6 

SSda? 

5^69" 


A200 

Aboo 


BD2A5 5 

25D7 


91D4 
E8 

BD2A55 

25D7 

A001 




5520 


5522 


5524 


5527 


X 

6 

-8 


90DF 


E6D5 


4C0155 


5527 68 






552A 


552A 0000 
552C 3F00 
552E 5FC0 
5530 3FF0 


6380^ 
64 db 


6440 

6460 

6470 


6430 

"6540 

6560 

6570 

6580 


5515 

F010 

5517 

A 000 

5519 

A5D4 




760 
780 
800. 
!0 
>0 
.0 


6880 

6900 

6920 


LDX #0 
LDY 40 


EFLA10 _ _______ _ 

LDA FL AGDAT, X s get data_ _1_ __ 

AND R+3 s set color 


STA v <R+0) , Y 

iNX ; next data 

___ LDA FLAGDAT, X __ 

AND R+3_ _ _____ 

LD Y #1 _; wr_i t2nd_ jrol umn (figure is 2 bytes 

wide) 


STA < R+0),Y 
INX' 

CPX #52 _ ; done? _ . 

BEQ EFLA2Q _ y es - br anch _ _ _ __ 

LDY #0 _; else n ext line (inc by 2 1 in es) _ 

LDA R+Q _ 

CLC 

ADC #40 
STA R+0 


BCC EFLA10 


INC R+l 


JMP EFLA10 


EFLA20 



7040 ; data for flag 
706Q 5 

7080 FLAGDAT _ 


7100 ; FLAG DATA FOR MODE 

7120 -BYTE $00,$00 

7140 -BYTE $3F,$00 

7160 _ -BYTE $3F, $C0 _ 

7180 -BYTE $3F 9 $F0 








































E 3FC0 


5530 3FF0 


7160 .BYTE $3F,$C0 


7180 .BYTE $3F,$F0 
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5532 3FFC 
5534 3FFC 


36 3FF 
38 3FC 
3A 3F0 


553E 


5540 


5542. 

5544 

5546 


5548 


3000 


3000 


moo 

'3000 

3000 


0000 


354A 00000690 
554E ,3 A A£ 3 A AC 
55 5 2 39600550 
5556 0 55005 50 
555A 3AAC3AAC 
EBC3C3C 



5562 

5562 


5566 

S56A 

556E 

556F 

5573 

5577 

5.5,7B 

557D 

5 581 

5585 

5589 

558A 

558E, 

55<?2 

5596 

5597 
559B 
559F 
55A3 
55A5 
55 A 9 
55AD 
55B1 


1OOF1312 


01180000, 

oooooooo 

18 

191A1B1C 
1D1 E1F2 0' 
.21222324 

25?6 
laOD'OEOC 
OP181800 

‘oooooooo 

'00_ 

1 OOF1512 
02180000 
oooooooo 

J 8_ _ 

2728292A 
2B2C2D2E 
2F505152 
‘3334 
18121415 
16171800 
OOOOOOOO 
00 


7200 .BYTE $3F„$FC 


7220 .BYTE $3F,$FC 


40. . BYTE. $3F,$F0' 

60' . BYTE $3F,$Ca 

80 .BYTE $3F,$06 ,. _ . 


00 .B YTE $30,$00 

20 BYTE $30 JL $00 _ 

40 .BYTE $30,$00 . _ 


7360 v^YTE. $30,$00 

7380 -BYTE $30 , $00 

7400 .BYTE $30, $00 __ , ___ _ 


7420 ■BYTE $00,$00 

'7446 ^ ” END OF FLAG DATA 

7460 : ~ " _ 


7480 data for player's extra cars 
7500. ; <12 rows x 2 columnsX 

7520 ECAR DAT _ _ _ __ ___ 

7540 s .BYTE 242,14 3,250,>175,234,171 

7560 V -BYTE 42 ,168,32, 8,52,8,32, 8,52,8,34 ,156,254,171,250,17 

5,240,15 _ _ 

'7580 .BYTE 0,0,6, 14.4,58, 172,58, 172, 57, 108.:, 5,80 


7600 . BYTE 5,80, 5, 80, 5S_, 172, 58, 172,62, ,188,60,60 


0 

0 

0 


7680 5 . _ 

7700 IHTXT f J, j f " U _U_ 

7720 ' . BYTE 16,15,19,18,1,2 4,0, 0, O, O, 0*, O, 24 


7740 .BYTE 25, 26,27,28,29,50,31,52*, 55, 54,55,56,5758 


7760 . 'BYTE 24, 13, 14,-12, 13,24, 24* 0,Q,0, O, 0, O' 

U 1 ' Lr lC =! _ 


77 80 ^BYTE 16, 15,19, 18/ 2,24,6 ,0,0, 0,0,0,2 4 


7800 . BYTE 39,40,41,42, 43 J ,44 JL 45 J1 46;, 47 . L 48,_49 JL 50 J 51,52 


7820 .BYJE 24,18, 20,21,22,23,24,0,0, 0,0,,0 s 0. 
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7900 

7920 


j OB char's needed for text are copied 
i to TCHAR mem. and CHBASE is set 



9 

5582 


10 

55B2 A900 

• 

II 

55B4 85D6 


12 

5586 A958 


13 

.5588 85D7 

• 

14 

55§A A.200 


IS 

55BC 


16 

55BC' BDF555 

• 

17 

55BF 302E 


18 

55C1 A000 


1? 

.55C3 .84D5 ' 

• 

70 

5^C5 oh 


21 

55C6 26D5 


72 

55C8 OA 

• 

23 

55C9 26D5 


24 

55CB OA 


25 

55CC- 26P5, 


26 

^5CE -851)4 


27 

.sSr)6 &D5 


28 

55D2 '18 


79 

55D3 69E0 


,c 

55D5 S5D5 


7940. 

79,60 

7980 

8000 

8020 

8040 


to point to. TCHAR 


ITCHARS 


LDA # <TCHARS 
STA R+2 
LDA # >TCHARS 


init dest. jptr^ to TCHAR area 


8060 . STA R+3 

8080 .LD.X #0 

810 0 ITCH10 
8120 LDA CHICORY, 

8140_ BMI FTCH30 
8160 _ LDY #0 _ 

8180 STY- R+l 

8200 .ASL A 

8220 R0L _R+1 _ 

8240 ASL A 

8260 ROL R+1 

8280 ASL A 


init index to chart's -;6d be copied 


get jrhartt to copy 
0 is end of data 


8 bytes/char 


-830.0 

8320 

8340 


8360 

8380 

8400 


ROL B+X 
SfA R+0 
LDA R+l 
CLC 

ADC # >0SCHARS 
STA R+i 




add in offset to OS.char base 


55D7 

55D7 A607 


5 5D9 

55D9 B1D4 


.8420 

8440 

8486. 

848 0 

8500 


ITCH 15' 

LDY £7 
ITCH20 

LDA (R+0) , Y 



7|~ 

55DD 

r x ua 

88 

UvJ4V 

8540 

O 1 ft 

DEY 

v. , t 

p| 

55DE 

10F9 

8560 

BPL 

I TCH2.0 

9 



8S80- 

* 


0 

~~ 55E0~ 

~E8 

8600 

I NX 


1 

55E1 

A5D6 

8620 

LDA 

R+2 

2 

55E3 

18 

8640 

CLC 


3 

55E4 

6908 

8660 

ADC 

#8 

t 

55E6 

85E>6 

8680 

STA 

R+2 

5 

55E8 

90D2 

8700 

BCC 

ITCH10 

6 

55EA 

E6D7 

8720 

INC 

R+3 

7 

55EC 

4CBC55 

8740 

JMP 

ITCH10 

8 * ~ 

55EF 


8760 

ITCH30 


9 

55EF 

A958 

8780 

LDA 

# >TCHAI 

3 

^5F1 

8DF4.02 

'8,800 

STA 

CHBAS 

1 

55F4 

60 

8820 

RTS 


2 



8840 

; CHCOPY is a 1 

3 



8860 

j be cop 

lied froi 

( 



8880 

« 

? 


5 1 



8900 

5 chars 

copied « 

'> 

55F5 


8920 

CiHCOPY 


1 


, 

8940 

JL 

Q.l i 


55F5 

10111213 

8960 

.BYTE 16,17 


55F9 

14151617 







8980 

5 

a, 9 


55FD 

18192125 

9000 

.BYTE 24.25 


5601 

2728292C 





L Jl©>*t c har 
j inc dest jptr 


set CHBAS to new -charset 


4 


7 


U L. 




55FD 18192125 


5601 2728292C 


9000 


„BYTE 24.2 


9.40.41.44 
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9020 ; 

P, Q, R, Y, 

0, U, N, D 







5605 30313239 9040 

-.v — K 1 1 • 1 - . - . “ '—'“" T — "- 

.BYTE 48,49,50,57, 

47,53,46,36 









9100 


9120 


9140 

9J6p 


... S6§f I* 

&80t> 


5800 


58C8 


,38cc, 
50DO 
58 D4 


58D8 

58DC 


58E0 


58E4, 
53E§" 
58 EC 


58F0 
58 F 4 
58F8 


58EC 

;S9P6 

5964 


^9C)§L 

590C 


5910 


29 14 
5918 
59*1 C 
5920 
5924 
5928 
592C 
5930 
5934 


593 8 

593C~ 

5940 

5944 

5948 

594C 

5950 

5954 

5958 


595C 

5960 

5964 


5968 

596C 

5970 

5974 


0F1F1E1E 


3E-3CZC73,;, 


1E1E3C3D 


8080000E 
OF1E1C3D 


OOOOOOE1 


F373E7.E7 ^ 
Qppbbo^F 2 



OOOOOOOO 

80800000 

0F1F3F00 


;1^3E7B78 * 

^Q^FFFd7 

BfofofIf 


00008085 
8F1E5C58 " 
000000F0 


E9397BF3 

5oq6oc>f3 

Ef5C7CF*9F 

0000Q0C7 

C78F1E1C 

0000008E 

9D1F3E3C 

OOOOOOF 8 

BC3C3878 


785F5F00 ___ 

oooobooo 

FFFE7806 

1F3F1F0F 

397F77E0 

C0CQ8000 

CF8E9E 00_ 

OOOOOOOO 

0E1E1C5D 


3F3F3F1E 

00000180 

C0C08000 


F8FFFF00 

OOOOOOOO 

7FFCF800 

OOOOOOOO 


D1F0F00 


9200 


9220 


9240 


9260 


9280 


9300 


9320 


9340 


9360 

■938(5" 


9400 


9420, 

944(5" 


9460 

9480 

9500 

9520 


9540 

9560 

9580 

9600 

*9620* 


9640 


9660 

9680 


9700 


Reserve space for TCHAR 


; (title and text? chars 
5 must align to IK 

. ds 1023p!<#cdQp-* * % * * 

TCHARS 


_- PS 25*8 _ ; reser ve for OS char cop y 

UPN DOWN title chars are at #25-52 


.BYTE 15,31,30,30.62,60,124,120 


.BYTE, .15 ,.1 5, 31> 30,30, 80, 61 


.BYTE 128,128,0, 14, 15^0, 28,61 __ 


.BYTE 0,0,0,225,243,115,231,231 


?BYTE Q, 0; B^3,183,231 ,*207,143 

% * x ^ * 


.BYTE 0,0,0, 0,1 28,128,0 ,0_ 

- BYTE 15,31,63,0,30,7h2, 124, 120 


!BYTE 252,255,255,7,15,15,15,31 


.BYTE 0,0, 128 , 131 s 143,30-,60, 56 
.BYTE 0,0,0,240,249,57,123,243 


.BYTE 0,0,0,243,227,199,207,159 
. BYTE 0,0,0,1997 199,143,30,28 
. BYTE 0, 0,0 ,~142~ 157,51 ,~6~2,60 
. BYTE 0,0,0,*248, 188,60,5£, 120 


■BY TE 120 ,65.65,0,0,0,0,0 

.BYTE~255,254.120,6,51,63,31,1 5_ 

.BYTE 57,127^119,224^192, 192,128,0 
.BYT E 2 07, J. 4 2^J587o~. o", 0,0,0 
. BYTE~14. 30728, 61,63,63,63,30 


.BYTE 0,0,1,128,192,192,128,0 


.BYTE 248,255,255,0,0,0,0,0 
.BYTE 127,252,248,0,0,0,0,0 


.BYTE 61,31,15,0,0,0,0,0 
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4 




5964 

C0C08000 




5968 

F8FFFFOO 

9660 

. BYTE 

248,255 

596C 

00000000 




5970 

7FFCFS00 

9680 

.BYTE 

127,252 

5974 

00000000 




5978 

3D1F0F00 

9700 

“7 BYTE" 

“61,3171 
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597C 

00000000 




5980 

F7C7870b 

9720 

.BYTE 

247,199 

5984 

00000000 




5988 

9EFF1F00 

9740 

.BYTE 

158,255 

598C 

00000000 




5990 

3CFCBE00 

~TL^9. 

.BYTE 

60,_252, 

5994 

00000000 




5998 

7870F001 

9780 

. BYTE 

120,112 

599C 

0103.0100 




59A0 

70F0E0EQ 

^800 

,. BYTE 

1 12,240 

1_ _ S9A4_ 

FEFEFGF0 

__ 

... 
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014440 

1000 


_. INCLUDE #D2: DRAW.M65 
.page" "DRAW.M65" 


t 


i 




p 

H 

l 

0 

3ll 

32{ 

3: 

34 

35* 

36 

37* 

38 

39 
■tOj 

41 

42 


431 

44 , 

45' 

46 

47 

48 

49 

50 

S' 

52 

53j 

M 

H5 





■Ii 


iiaa 


59A8 
59A 8 8 A 
59A9 48 


59AA 

59AD 

59AF 


59B1 

59B1 

59B4 

59B6 

5.9B8 

59B9 

59BC 

59BC 

~59BD 


59 CO 
59C3 
59C3 
59C4 
59C7 
59C7 
59C9 
59CC 


202A64 

COFF 

F012 


B9 'JOLTS' 
C9FF 
F004 
A 8 

4CB159 

8 A 

997763 


4CC759 

98 

9D7 763 

A 901 

2Q695A 

B03D 


59CE 
~59CE 
59 DO 
59D2 
59D4 
59D4_ 
59D6 
~59D6 
59D8 
59DA 
59DC 
59DE 
~59ECT 
J59EJ. 
59E2 


A910 

85E7 

AOOO 

A 205 

"BIDET 
91E0 
31E2 
11E4 
_9JLDE 
C 8 
CA~' 
D0F2 


59E4 C6E7 
59E6 F022 


59EA 
59EC 
59EE 
59EF 
59F1 
59 F 3 
59F5 
59F7 


DO 10 
A5DE 
38 

E95D 
85DE 
A5DF 
E 911 
85DF 


1060 
1080 
1 100 : 
1120 
r i 4p 
1160 


1180 

1200 

1220 

1240 

1260 

1280 

1300 

1320 

1340 

J.360 

1380 

1400 


1420 
1440 
1450 
_1_460 
1480 
1500 
1520 
1540 
1560 
1580 
_1600 
1620 
1640 
1660 
1 680 
1 700 
1720_ 
1740 
1760 
1780 
1800 
1320 
1840 
1860 
1880* 
1900 
1920 
1940 
1960 
980 


2000 
2020 
2040 
2060 
2080 
2100 
2120 
2140 


DRAW ROUTINE - DRAWS OBJECT 


; IN OBJTBL INDEXED BY Xreg 


DRAW 


sav e OBJTBL index 


Of 


JSR OVRLAF u 

CPY #$FF 5 ^ 

BEQ DRAW O.l ___ 

DRA110 £>$7 

LDA OVRLAY., Y a * _ _ 

~ CMP #$FF f-y » _ . ---- 

BEQ ^ pRAl Oil^^ 

TAY / 

JMP DRA110 _____—-- 

DRA 100 _ . - 

TXA __ _ _ _ 

STA OVRLAY.Y ; set overlapped ob i ptr to this object 


JMP DRAW02 
DRAWO1 

TYA __ __*___ 

__ STA OVRLAY, X ; this _obj doesn't overlap any-yii_ng 

DRAW02 _ _ . __ _ 

~L DA #1 ; flag draw setup __ 

JSR DESETUP ; setup pointers and variables -for draw 
BCS DRAW30 ; branch i-f not displayable 


DRAW04 _ „ _ 

_2_ LDA _ ; # ro w s to dr aw_ _ 

STA R+19 
LDY #0 

DRAW05 _ _ _ _ _ 

LDX_ #5 5 #bytes/row. . 

DRAWio _ 

LDA <R+10),Y ; get curr ent back gr ound 
STA <R+12 )';y‘; save 

AND (R+14 > i Y ; create "hole" with mask 

ORA (R+1 6),Y ji_“O R” n ew dat a _ 

STA (R+10KY : write to screen 


; itbytes/row 


AND <R+14 >,Y 
ORA (R+1 6),Y 
STA (R+IOJ-.Y 
I NY 

DEX__ 

BNE DRAW10 

DEC R+19 
'BEQ DRAW20 


? dec count 


:es in row 


- d ec co unt of rows to dr aw 
: branch when done 


DEC R+22 ; time to wrap? 


BNE DRAW15 ; no - branch 

LDA R+10 ; else reset ptr 

SEC * to buff beginning 

~SBC~# <£112*400-35 
STA R+10 
LDA R+ll 

SBC # >£112*40 0-55 __ / 

STA R+ll 










59F5 E911 
59F7 85DF 


2120 

2140 


BBC _# >Ai1 2*40 0-55 
STA R+ll 


#■ 


PAG E25 
DRAW-M65 


URN DOWN - for At ari sy st ems 


D2:DRAW.M65 


! 

59F9 

4CD459 

2160 

JMP 

DRAW05 

|6 

59FC 


2130 

DRAW15 


7 

59FC 

A5DE 

2200 

LDA 

r+io~ 

8 

!' 59F£ 

lS 

2220 

CLC 


9 

5S>FF 

6923 

2240 

ADC 

#35 

10 

5A01 

85 DE 

2260 

STA 

R+10 

l! 

5A03 

90CF 

2280 

BCC 

DRAW05 

12 

5 AO 5 

E6DF 

2300 

INC 

R+ll 

13 

5 AO 7 

4CD459 

2320 

JMP 

DRAWO5 

U 

5A0A 


2340 

DRAW20 


!5 

5A0A 

18 _ 

2360 

CL£_ 


16, 

5A0B 


2380 

DRAW30 

, 

17 

5A0B 

68 

2400 

PLA 


is! 

5A0C 

AA 

2420 

TAX 


1*1 

5A0D 

60 

2440 

RTS 



- Yreg Inc. 


s flaq successful 

C&- &T - ~ - 

y T/± 


5A0E 
5A0E 
5A0F 
5A10 
5A13 
5A15 
5A17 


8A 

48 _ 

BD7763 
C9FF ' 
FOOB _ 
8A 


2460 

2480 

2500 

2520 

2540 

2560 

,2562 

2564 

2580 

2600 

2620 

2640 


j ERASE ROUTINE - ERASE ENTRY IN 
X OBJTBL INDEXED BY Xreg_ 


ERAS! 


i 5A18 48 

2660 

3 5A19 BD7763 

2680 

4 5A1C AA 

2700 

5 SAID 200E5A 

2720 

“J 5A20 68 

2740 

; 5A21 AA 

2760 

5A22 

2780 

« 5A22 A900 

2840 

o 5A24 20695A 

2860 

i 5A27 BO3D 

2880 

2 ' 

2900 

3 5A29 

2920 

4 

2940 

•* 

2960 

6 

2980 

7 

3000 

8’ 

3020 

9 

3040 

0 

3060 

1 1 

'3080 

2[ 5A29 

3100 

3 5A29 AD0BD4 

3120 

< 5A2C C96E 

3i40 

5A2E D0F9 

3160 

j 

3180 

7 

3200 


3220 


3240 

5 A 30 

3260 

5A30 AOOO 

3280 


TXA 

pha y_ _ 

'bBA OVRLAYj, X 
CMP #$FF 
BEM £RA S02 
f?A 

rm- 

LDft OVRLAY- X 


TAX 

r RASE 

LDA #0 _ _ j_ f laq erase setu; 

JSR DESETUP x setup for erase 


BCS ERAS30 


exit if not erasable 


ERAS03 

;; LDA YPOS,X ; 
i_l CLC 

1 5 Ai>C #N SYNC2+ 1 7 
jj SEC 

XL SBC VC O UNT _ 

5; BCC'ERAS06 
5; CMP #NSYNC 
ill BCC ERAS05 
ERAS06 

LDA VCOUNT 

_ CMP _#110__ 

BNE ERAS03 


syhe to screen 


_£J_LDA #*0F 

;5 STA it DO 1A 


**DEBUG 


5A32 A910 


ERASO4 

LDY #C 
LDA 4tlA 


s rnu« +• rir aw 

































4440 DESETUP - 

4460 PHA 5 save flag for draw or erase setup 


PAGE 25 URN DOWN - for Atari systems ____ 

D.RAN-M65 D2rDRAW.M65 



5A6<? 4a 


* 1 1 


4480 







4500 

m 

■» 

Displayable? 




4520 

5 




5.A6A 

BD2F63 

4540 


LDA 

YPOS f X ; Y range is 0-95 


5A6D 

C960 

4560 1 


CMP 

#96 


5A6F 

9003 

4580 


BCC 

DESE10 


5A71 

68 

4600 


PLA 

; remove flag from stack 


5A72 

38 

4620 


SEC 

; flag not successful 


5A73 

60 

4640 


RTS 





4660 

5 






4680 

■ 

9 

Set wraparound counter 




4700 

9 




5A74 


4720 

DESE10 



5A74 

18 

4740 


CLC 



5A75 

6D0840 

4760 


ADC 

DSCRQL ; Y is relative to top of 

sgreen 

5A78 

A 8 

4780 


TAY 



5A79 

85EA 

4800 


STA 

R+22 


5A7B 

A970 

4820 


LDA 

#112 


5A7D 

38 

4840 


SEC 



5A7E 

E5EA 

4860 


SBC 

R+22 


5A80 

B002 

4880 


,BCS 

DESE15 


5A82 

6970 

4900 


ADC 

# 112 , ** 


5A84 ' 


4920 

DESE15 



5A84 

85EA 

4940 


STA 

R+22 




4960 







4980 

•1 

Set initial screen pointer 




5000 





5A86 

993C40 

5020 


LDA 

DSPTBL,Y 


5A89 

85DE 

5040 


STA 

R+10 


5 A SB 

B91B41 

5060 


LDA 

DSPTBH,Y 


5A8E 

85DF 

5080 


STA 

R+11 


5A90 

BD2663 

5100 


LDA 

XP0S,X s get X 


5 A 9,3 

4A 

5120 


LSR 

A i convert to byte# 


5A94 

4A 

5140 


LSR 

A 


5A95 

18 

5160 


CLC 

* 


5A96 

65DE 

5180 


ADC 

R+10 ; add to pointer 


5A98 

85DE 

5200 


STA 

R+10 


5A9A 

9002 

5220 


BCC 

DESE20 


5A9C 

E 6 DF 



INC 

R+i 1 





» 






5280 

■ 

JL 

Init backsave ptr 




5300 

3 




5A9E 


5320 

DESE20 



5A9E 

8 A 

5340 


TXA 

? GBJTBL index determines 

backsave area 


AS 

5360 


TAY 




B97F6B 

5380 


LDA 

BSTEjLL, Y ; address, loifi 



85E0 

5400 


STA 

R+12 , 


5AA5 

B9876B 

5420 


LDA 

BSTBLH,Y ? "high 


5AA8 

85E1 

5440 


STA 

R+13 


5AAA 

68 

5460 


PLA 

; check draw or erase setup 

SAAB 

F03F 

5480 


BEQ 

DESE30 ; if erase then done 




5500 

9 






5520 

JL 

-Init Ptr to mask 




5540 

9 




5AAD 

BD2663 

5560 


LDA 

XF'OS, X 5 form index to data/mask 

tables 

SABO 

,2903 

5580 


AND 

#$P3 5 XF’OS determines shift 


5AB2 

85EB 

5600 


STA 

R+23 


5AB4 

isUVrfsfifcMigfc 



LDA 

DIRjX 5 dir determines image 



dir determines image 

















5600 

5620 


dir determines image 


^AB2 r 85EB 


5AB4 BD3863 


STA R-t-23 


LDA DIR,X 
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,,DRAW-M£5 


UPN DOWN - -for Atari systems 


i 



5AB7 C902_ 

~5A B9 9010 _ 

'5ABB .ROOC 
5A£D 38 
5ABE E901 


SACO C904 


5AC2 9007 


5AC4 A902 


5AQ6 .4CCB5A 
WP9 " „ 

5AC9"A900 


5 


5ACB OA 


5ACC OA 


5AQD 18 
$Ac£ ~65|l 
5AD0 C>A 4 


5AD1 BC1D63 
5AD4 79C769 
5AD7 A8 


5AR8 &9316A, 
5 ARB fell 
5ADEk ” 


5AE0 85E3 


^A|2 fepMV' 
5AE5"B5E4, 
5AE7 B9F26 9~ 
5AEA 85E5 


5AE.Q . 
'5AEb " IQ, 
5AED 60 


5AEE 


5 AEE 

5AF1 

5AF3 

5AF5 

'5AF7 

5AF9 


5AF9 

SAFA 

5AFC 


5AFD 


ADFC02 


_C921 

D019 


A200 

AOOO 


CA 

DOFD _ 
88 


DOFA 


5AF£ A9FP 


5B01 8DFC02 
5B04 8DF202 
5B07 

5BO7 AD01D2 


5B0A C921 


5640^ 

5660 

5680 

5700 

5720 


5740 


5760 


5780 


5800 

,5820 

'5840 


5860 

5880 


5920 
5940 
5960 
5980 ‘ 
6000 
6020 
6040 
6060 
6080 


6100 


6120 


6140 


6160 
613 Q x 
6200 
6220 
6240 
6260 


628Q 

6300 

6320 


CMP #2_; check -fo r truc k unde-f dir. 

BCC DESE57 __' 

BEQ DESE56 
SEC 
SBC #1 


CMP #4 


BCC DESE57 


LDA #2 


JMP DESE57 
DESE56 

LDA #0 


DESE57 

ASL A 


ASL A 


CL C 

ADC R+23 

ASL A _,__ 

LDY TYPE, X ; 

ADC QBJREFj Y $ carry still clear 

~'TAY _'_ " 

LDA OBJMSK..Y 

STA Rfl'4 

LDA OBJMSK+1,Y 


STA R+15 


Init- ptr to data 


LDA OBJDAT ? Y ; data addr. high 

STA R+16 __ 

___LDA_ OBJDAT+1 , Y j_" " low 

STA R+17 


D£SE30 

CLC 

RTS 


flag successful 



6340 


6360 


6380 


6400 

6420 

6440 

6460 


6480 

6500 


6520 

6540 

6560 


6580, 

6600 

6620 


6640 

6<£60 

6680 


6700 

6720 

674Q 

6760 


6780 


PAUS_E_WHEN SPACE BAR PRESSED. 
WAIT UNTIL ANY KEYPR ES S TO 
CONTINUE 


PAUSE 

LDA CH 


_CMP #$21 

BNE PAUS50 


LDX #0 
LDY #0 
PAUS10 


_DE_X_ 

_BNE _PAUS10 

DEY 


BNE PAUS10 

■ 

LDA #$FF 


STA CH 
STA CHI 
PAUS20 

LDA $D201 


CMP #$21 




check keyboard 
space bar 

exit if not pressed 


del ay 

























6800 BEQ PAUS20 

6820 P AUS5 0 _ 

6840 RTS 

014460 .INCLUDE #D2:TRACK3.M65 
0900 _ _ . ,PAGE.“TRA CK" 

















PAGE 28 URN 

jbwktt r 




DOWN 


•for Atari systems 


D2:TRACKS.M65 


=<:>oqb 

5B0R 

mfe , 

5B1 1 

5 B12 _ 

5B1S 

=0 QQ6 

5P14 

5B15, 

5B16_ 

—D300 
~=D3~02 
=0010 
-FFFO 

==t>028 

5 B17 _ 

5B 1~8 __ 

"~=D010 
=00p8 

be19 ** 


1000 
1020 
1040 
1069 
1080 
_il00 
1120 
1140 
1160 
1.180 
1200 
1220 ' 
1240 
1260 
’ 1280 
1300 
1 320 
1340 
1360 
1380 
1400 

1420 
1440 
14 60 
1480 
1500 
1520 
1540 
1560 
1580 
1600 
1620 
1640 
1660 
1680 
1700 ’ 
1720 
1740 
1760 
1780 
1800 
1820 
1840 
1860 
1880 
1900 
1920 ' 
1940 
i960 : 


. f TRACKS.M65 

“YTRKPT ~ 

BLSTINC * + l 
BLSTNZR »= * 4-1 
BUGDIR *=_*+l 
BPTHCT *= *+l 
SCRFLG ~*= *+T 
JMPDLY ~ 6 
JMPCTR *^= *+j 
QLDBUGY f+1 
OLpBDlR * = * + l 
PORTA » $D300 
PACTL = $D302~ 
FWDSPD = 16 
BWDSPD « -16 
ACCD LY a 4Q- 
ACCGNT *= ?jc h~ 1 
JMPNDX *=■• Hc+I 
TRIGG = $D010 
NPATH V 8 ... 

WHLSEd fa r+i 


Y track point relative to top o-f object 


; player’s direction 
. _i_ n d e>: t o _p a t h pi ayer is -following 
•flag set when scrolling occurs 
delay during jujnp sequencing 
count -for,., del ay between jump moves 
ayer * s l ast Y posi €i 6n 
player’s last direction 
joystick port_ 

_ PQPTA control ~~ 

max -fwd. speed (must be positive) 
max bwd. speed (must be negative) 
del ay betw. accel. inds.- 
counter -for accel del ay 
index to jump p_ath_ 

joystick trigger _ 

# path iterations ,tq get across 
intersection 

_sequen ce count for -wheel spin 


ROUTINE RET URNS x"FOR A VEHICLE 
SlJCHjHAT VEHICLE TRACKS JHE ROAD 


ENTER WTftg 
R+0 
R+l 
R+2 


present X (0-159)' 
new Y ' (0-95) 

present direction 


_ R+1Q 

R+l 1 
R+l 2 

_ R+8_ 

RETURNS:" 

R+0 

R+3 


USES: 


lett right 

0 _ I evel S 

_ 1 _up_4 _ 

2_ down 5 

last increment 
last non—zero incr. 
speed (negative i-f in reverse) 
forced p ath counter- 

new X 

road status byte 
0-5 direction 

128 = hit ground 

129 = hit water _ 

bit6=l, turning point ~ 


6,7,9 


5B1A 
5B1A 
5B1B 

98 

48 

1980 

2000 

20*20 

TRACK 

TYA 

PHA 




5B1C 

8A 

2040 

TXA 


— — -- — —- 

- -— - 

5B1D 

48 

2060 

PHA 




5B1E 

— 

2080 

TRAC02 










0 
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UPN 


TRACK 


j)QWN - for Atari s ystems 


D 



2140 

2160 

m 

; On pal 

5B22 2903 

2180 

2200 

2220 

5 as Xpc 

it 

5 

AND 

5B24 85DD 

2240 

STA 

5B26 A5D6 

2260 

LDA 

5B28 OA 

2280 

ASL 

5B29 OA' 

2300 

ASL 

5 82 A' 05DD 

2320 

ORA 

5B2C AA 

2340 

TAX 

. 5B2D BD5C5C 

2360 

LDA 

5B30 A6E0 

2400 

LDX 

5B32 1005 

2420 

BPL 

5B34 49FF 

2440 

EOR 

5Bo6 18 

2460 

CLC 

5B37 6901 

2480 

ADC 


2500 

TRAC05 

5B39 85DE 

2502 

STA 

5B3B 0900 

2503 

ORA 


Qn_gath - ge t ne xt byte and add 


o 


M 






p 

o 


5B3F* 8 $DF 

sb4i,__ 

18 __ 
65D4 
85D4 


5B41_ 

5B42 

5B44 


2504 BEQ TRAC06 

25Q6 STA R+li 

.2 508 TRAC06 

2520 __CLC 

254_0~_ADC R+Q 

2560 STA R+O 


5B46 C 6 DC 
5B48 4CE15B 


2580 ; 
2600 
2620 


5B4B 

5B4.B; ,A5D5 
5B4D 18 ‘ 


5 B4E 6D0840 
5B51 690B 
5B53 A 8 


2700 IRAQ10 
2720 y liDA R+l 

2740 CLC 


5B54 A5D4 
5B56 4A 
5B57 4A 


5B5 8 18 
!___. 5B5 9 793C40 

5B5C 85DA 
5fe5E B91B41 


2760 

2780 

2800 

2820 

2840 

2860_ 

2880 

2900 

2920 


2940 

2960 



5B63 85DB 

" 5B65~ A5DA 

3000 

3020 

3040 

STA R+7_ 

* 

LDA R +6 


5B67 38 

3060 

SEC 


5B68 £905 

3080 

SBC #5 

L . 

5B6A 85DA 

3100 

STA R +6 


5B6C B002 

3120 

BCS TRACIS 


5B6E C 6 DB 

3140 

DEC R+7 



3160 



5B70 

3180 

TRAC18 


5B70 A202 

3200 

LDX #2 ■ 



DEC R +8 
JMP TRAC70 


2640 _ 

5 JLC. 3 Ck the left edge of the road 
2680 s 


jADC DSCROL 
_ADC #YTRKPT 
TAY 


LD 8 R+0 
LSR A 
LSR A 
CLC 

At) C_DSPTBL, Y 


STA R+£* 

LDA DSPTBHj. Y 


to allow search of 1 eft by te 


J 


I 


J 




# bytes to search -1 






ry 

□ 


5B70 A202 


3200 


LDX #2 


# bytes to search-1 


■'} 

-) 

O 

O 

O 

o 


PAGE 30 UPN DOUJN - for Atari systems 




T 

D 

O 

0 

5 


>4 


TRACK 


D2sTRACKS.M65 


5B72 A006 
5B74 


5B74 B1DA 
5B76 C9FF 
5B78 DOOB 


5B7A 88 


3220 

3240 

3260 

3280 

3300 

3320 

3340 

3360 


LDY #6 
TRAC20 


; rightmost byte to search (middle is #5) 


LDA <R+6),,Y ; -find a non-road byte 
CtiP #$FF 
BNE TRAC30 


LDA #$1B 
ST A <~R+6) , Y 
DEY 


5fB CA 
5B7C 10F6 


3380 

3400 

3420 


DEK 

BPL TRAC20 


_.s_. 


3440 ; search -failed 
3460 : 



!8 

5B7E 

A908 

3580 


LDA 

#NPATH 

0 

19 

20 

5B80 

85DC 

3600 


STA 

R+8 


21 

5B82 

4C1E5B 

3620 


JMP 

TRAG02 

C2 



3640 

• 

Jl 




53 

5B85 


3660 

TRAC30 



24 

5B85 

48 

3680 


PHA 


>) 

25 

3 B86 

A5D4 

3700 


LDA 

R+0 

26 

5B88 

29FC 

3720 


AND 

#$FC 


V 

5B&A 

1 § 

3740 


CLC 



28 

5B8B 

7D595C 

3760 


ADC 

BYTADD, 

O 

29 

5BBE 

S5DD 

3780 


STA 

R+9 


JO 



3800 

■ 

Jl 




31 

5B90 

68 

3820 


PLA 


U 

32 

5B91 

A20S 

3840 


LDX 

#3 


33 

5B93 


3860 

TRAC40 



14 

5B93 

6 A 

3880 


RQR 

A 

0 

35 

5B94 

9006" 

3900 


BCC 

TRAC50 


36 

5B96 

6 A 

3920 


ROR 

A 


17 

5B97 

9003 

3940 


BCC 

TRAC50 

0 

38 

5B99 

CA 

3960 


DEX 



3? 

5B9A 

D0F7 

3980 


BNE 

TRAC40 


4°, 



4000 

•* 



.0 

41 

5B9C 


4020 

TRAC50 



12 



4060 

jl 

ORA 

BB j X 

6 

43 

3B9q ? 

8 A 

4100 


TXA 


44 

5B9b 

18 

4120 


CLC 



45 

5B¥k 

65DD 

4140 


ADC 

R+9 

•0 

46 

5BA0 

85DD 

4160 


STA 

R+9 

47 

5BA2 

38 

4180 


SEC 



48 

5BA3 

E5D4 

4200 


SBC 

R+0 

D 

49 

5BA5 

85D9 

4220 


STA 

R+5 

50 

5 BA 7 

A5f>D 

4240 


LDA 

R+9 


51 

5BA9 

85D4 

4260 


STA 

R+0 


52 

5BAB 

A6D4 

4280 


LDX 

R+0 

O 

S3 

5BAD 

A4D5 

4300 


LDY 

R+l 


« 



4320 




va 

55 



43,40 

•I 

set new direc 

0 

56 



4360 

% 

LDA 



Id 

5BV$F 

A5D9 

4380 


R+5 



5BB1 

A6E0 

4400 


LDX 

R+l 2 

0 


5BB3 

1007 

4420 


BPL 

TRAC48 


direction 


; save left road byte 


•find pixel offset of L side of road 


: 

ie! 

i 

i? 

poi 

2 

7Z 

2 i 


25 

26 

27 1 

28 

29 

33 

3. 

p2 

]33- 

-i 

3* 

35 

36* 

i 

37> 

; 38 , 

39 

40, 

41‘ 

i«: 

'*3 

44 ! 

(jl 

3 


0 








">r 
l) : 


i 


•"■j jr 


; save increment 
: set new X 


; ge t in c 
; fwd or bwd? 


3 

> 

b2 

'531 

M 

15. 

I 

66 

V 


r \\ 

J 


J 


i 


4440 

















1{ZWS 


PAGE 51 
TRACK 


5BBA 85D9 
5 BBC* 


44SO 


ADC #1 


UPN DOWN 


5BC1 A5D E 
5BC3 FO12 
5BC5 E8 


4500 

4520 


4 

8 

0 


02 

04 

20 


•for Atari systems 


STA R+5 
TRAC48 


CPX R+10 
BNE TRAC56 


LDA R+10 
BEQ TRAC60 


D2:TRACK3.M65 


cmp to last inc 




CC 


5BCC 


5BCE 


5JpD<X 

5BD2 

5BD4 


5BD7 

5BD7 


5BD9 


5BDB 

$BDD 

5BDF 


5BDF 


5BE1 


A5D9 


85DE 


FOOF 

,85DF 

4CE15B 


A204 


A5DF 


1002 

Mql 


86 D6 



5BE1 


5BE1 

5BE3 


5BE4 


5 BE 6 
5 BE 7 
5BE8 


5BE9 


5BEA 


5BEC 


5BEE 

5BEF 

5BF1 


5BF2 


5BF5 


5BF6 


5BF7 

5BF8 

5BF9 

5BFA 

5 BFD 

5BFE 

5C00 

5C02 

5C04 


5C06 

5C08 


A5D4 

18 


6908 


,4A 

4A 

4A 


4A _ 

85D8 
A5D 


18 

690B 

18 


6D0B40 


4A 


4A 


4A 

4A 

A8 

B9244B 
. 18 ~ 
65D8 
65CA 
85D8 
A900 


65CB 

85D9 


4700 

4720* 

4740 


4800 

4802 


4860 


4880 

4500 

4980 


5000 


5020 

**5160 


5180 

5200 

5220 


5240 

5260 


5300 

5320 

5340 

5360 

5380 

*5420 


40 

60 

80 


5500 


5520 


5540 


5560 

5580 

5600 


5620 


5 640 

5660 

5,680 

5700 

5720 


5740 

5760 

5780 

5800 


5820 


save as last inc 


save as last non-zero 


LDA DIRINC,X 
STA R+2 


TRAC56 

LDA R+5 __ 

STA R+10 


BEQ TRAC65 
STA R+l1 
JMP TRAC65 


TRAC60 __ __ 
LDX #4 


LDA R+l1 


BPJL TRAC64 
LDX M ' , v 
TRAC64 < ■ 


STX R+2 


TRAC65 


Calculate, pointer to status byte 


TRAC70 


_LDA R+0 

CLC 

ADC #8 ' 


LSR A 
LSR A 

LSR A _ 

LSR _A_ 

STA R+ 4 
' LDA R+l* 

CLC 

ADC #YTRKPf 

CLC _ 

ADC SCROLF 


LSR A 


LSR A 


LSR A 
LSR A 


M1OT BL„Y 

R+4 ; 

SCROLC 
Rt4 
#0 


SCROLC+1 

R+5 


ptr=SCROLC+a(Y-52)/32U*1 0+(X+4) 
offset X 


won •’ t ovf 1 


l 


Correct for overflow 




























5C0 A 

scoc 


5C0E. 

,50iO 


5C14 

5C16 

5C18 


_ A5D9 
C946 


9015 

$006 

^Iasdb 


_C920 

900D 


5C1D 85D8 


5C1F A5D9 


5C21 E902 


5840 LDA R+5 

5860 CMP # >&PFDATA+PFLENLi 


,5880 £CC TRAC90 
5900 * BlME TPAC80 
5920- LDA k+4 


5940 CMP tt <£PFD ATA+F FLENu 

5960 JCC TRAC90 ' [_* 

5980 TRAC80 


sLDA R+4 
•SEC .1 
SBd # <#FLEN 


STA R+4 


LDA R+5 _ 

SBC # >PFLEN 


5C25 


5C25 AOOO 


6180 _i 
6200 TRAC90 


6220 LDY #0 


5C2A # BD9i5E 


5C2D 85D7 


f 

f5ib" ' 


A5D5 


18 


6D0B40 




5C3T 


J“P“P-T 

jLoj 


5C35 


5C36 


LDA,RDSTATT, X ; qet byte from table 


STA R+3 


6 340 

6360 


s'6 4Id 


6440 


6460 


6480 


T ur n 


& ,BEQLTRAiOO 


LDA R+l 


CLC 


ADC SCROLF 


if chec i* for f 


■wm- 


5C3F 

5042 

5C44 



, : y* l ’ 

** f® «#$0F 

5D9v 

' ■; &540 

J -S TAi *k+± 


290F 

C5D9 


‘5C48 A5D7 
5C4A 29BF 


5C4C 85D7 
5C4E ~~ ~ ~ 


ft 

t 

fe 


5C51 A 8 


5C52 60 




:5C57"0500 


3CS.9 J r COOQ4 


658 0 AN 

6600 CM 

6620 T 
6640 ‘ "BE 

6660 _ LP 

6680 AN 


6700 _ST 

6720 TRA100 


740 PL 

760 Tb 

780 PL 


6800 TA 


6820 RT 


AND #*0F 
CMP R+5 ‘ 


■BEQ' i^AlOG 
LDA R+S 
AND #$BF 


STA R+3 


yes - branch 
.else no turns 



mm 




E 2,0,1,3,5,0 


6900 ; Values "to aBd to Xpos. to 1 * _ K * 

6920 5 move 1 byte left, nowhere;, right 
6940 s 

6960 EtYTADD .BYTE -4,0,4 
6980 : 


7000 s Paths for "lost" vehicles art? 










































7000 ; Paths -for "lost" vehicles are 


URN DOWN 


■for Atari systems 


*TRACK 



4 bytes long and wrap around 


m 

5C5C 


7060 PATHD 

5C5C 

FFFFFFFF 

7080 -BYTE -1,-1,-i 


5C60 

FFOOOOOO 

7100 -BYTE -1,0,0,0 


5C64 FEFEFEFE 


5C68 01010101 
5C6C 01000000 


*5£70 02020202 


7180 

7200 

7220 


BYTE 1,_1 , 1 3 1 
BYTE 1,0,0,0 


BYTE 2,2,2,2 


5C74 

7260 

JMPADD 

5C74 FEFCFAF8 

7280 

. B 


used to calc- Y during jump 


5C82 


5C86 


5C88 


5CSC 

5C90 

,5094 


5098 


5090 
50 A0 


50 A i, 
50 A i 
50 A 5 


5CA9 

SCAB 

5CAF 


5CB3* 
'50 B 5 
5CB9 


5CBD 

5001 

5005 


5CC9 

5CCD 


EBEAE9E9 


E8E8 


E8E8E8E8 


E8E8E8E9 

E9EAEBEET 

ECEDE^EF 


F0F2F4F5 


F7F8FAFC 

FE 


01010101 
01010101 


0101 

01010101 

6iolbioo 


oooo 

00000000 

00000000 


02020202 

02020202 

02020202 


02020200 

0000 

002D 


7340 


, felYTE -20,-f9,-18,-17,-16,-14,-i 


-9,-8,-6,-4,-2 


5CCF 


7360 .JMPPIC ; used to calc pic during jump 

738<? r BYTE 1, 1 „ 1, 1, 1, 1, 1, 1, 1, 1 


7400 . BYTE _1, 1, 1, 11, 1, 1,0,0,0 _ 


* 

7420 -BYTE 0, 0,0,0,0,0, 0, 0, 2, 2, 2,2 


7440 -BYTE 2, 2,2,2,2, 2, 2, 2~ 2, 2, 2, 0, o'/p *’ _ 


7460 ENDJMP = JMPPIC-JMPADD ; # bytes in each of the above 


7480 


7500 


7520 ; MOVE THE PLAYERS ’BUG 3 
7540 ; 

7560 PliOVE ‘ 


5CCF 

ADA642 

7580 

LDA 

BUGX 

; player’s X 

5CD2 

85 D4 

7600 

STA 

R+0 

f 

5CD4 

ADA742 

7620 

LDA 

BUGY 

! " Y - ‘ 


5CDC 85DE 


5CDE AD105B 
5CE1 85DF 
5CE3 AD115B 
5CE6 85D6 


5CE8 AD0A40 


STA R+l 
LDA BLSTINC 
STA R+10 


7760 


7780 


LDA 

BLSTNZR 


STA 

R+ll 


LDA 

BUGDIR ; 

direction 

STA 

R+2 


LDA 

SCRSPD 





































5CE8 ADOA40 


7780 


am k+z 
LDA SCRSPD 


PAGE 34 UPN DOWN - -for Atari systems 

-TRACK. 

:? ' * •' *' « ** 

* * - - jr 


D2: TRACK'3. M65 


5C EB 8 5E0 7800 STA R+12_ 

___ 7820 s __I_ 

5CED AP125B. 7840 LDA BPTHCT ; path count 

SCFO J35DC 7860 STA R +8 

1 7880 ; _ _ _ 

_ 790 0 ; Accelerat ion/deceleration 

___ 7920 ; _J 

5CF2 _ 7940 PMOVIO 

5CFS CE175B 7960 PEC ACCCNT ^ “ ' 

' 5CF5~ D028 7980 BNE PM8V30 

5CF7 A928 _ 8000 LDA ttACCDLY _ " 

5CF9 8 D175B _ 8020 _STA ACCCNT 

5CFC AD0 QD3 J3040 _LDA PQRTA__ ; check joystick^ 

5CFF 2903 _ 8060 _ AND #3 } ... -for -forward/backward pos. 

5Dpi, C903 8080 CMP #3 

5D03 F01A 8100 BlrQ PM0V30 ; neither selected 

5D05 2901 _ 8120 AND #1 « stick -forwa rd? _ 

5D0 7 DOOB 8 140_ BNE PM0V20 5 _no -_branch 

5D09 AE0A40 8160 _LDX SCRSPD ’ ; accelerate 

5DOC E 8 _ 8180 _ INX. ~ 

8200 ; CPX #128 5 can't go negative 

5D0D EQ10 8220 CPX #Fi*JpSPD 

5DOF FOOE ^ 8240 > BEQ PM0V30 

5D11 4C1C5D 8260 JMP PMQV2 5 _ _ _ _ 

_5Di4_ 8280 FM QV20 ______ " ~ _ _ 

5D14 AE0A40 _ 8300 ~ ‘ LDX SCRSPD ^decelerate 

5D17 CA 832P DEX v 3 

8^40 ; CPX' #127 ; can’t go positive 

5D18 EOFO , 8360 CPX #BW DSPD 

5D1A F003 _ 83 80 BEQ PMDV30 

5D 1C_ 8400 PM0y'25 _ ' ' 

5D1C 8E0A40 8420 __ STX SCRSPD 

844p ; 

M&0 ; JUMPS 
_ 8480 

_5_DIF _ 8500 PM0V30 _ __ _ 

5D1F AE185B _ 8 520 LDX JMPNDX jj jump in progress?__ 

5D22 101B _ 8540 BP L PM0V33 ; yes - branch 

8560 ; 

5D24 AD10D0 8580, LDA TRIGO 5 check trigger button 

5D27_Fpp3 _ 8600 , BEQ P MQV32 ; bran ch ijf^ pressed 

5D29 4CD C5D_86 20 JMP PM0V60 

5D2C _ _ 8640 PMQ032 ' ~ 

5D2C AD0A40 8660 _LDA SCRSPD ; can only iump if not moving backwards 

5D2F 1003 8680 BPL PM0V31 ^ ~ - 

5&3L 4CDC5D 87Q0 JMP PM(DV60 

5D34 _ 8720 PMQV31 

5D34 A200 8740 ~~ LDX #0~ 5 start the jlfmp 

5D36 8E185B __8760_ _ ST X~J~MPNDX 

5D39 20CC65 _ 8780 _ JSR V WJUMP 5 do jump sound 

5P3C 4CB95D 8800 JMP PM0V40 “ 

8820 5 

__ 8840 5 Update X during jump 

8860 ; - 

5D3F 8880 PM0V33 

5D3F AD135B 8900 LDA SCRFLG , J 

5D42 F035 _ 8920 BEQ PM0V34 _ 1 no X change "* " 

5D44 8940 PM0330 















rffc) X change 


8940 PM0330 


PAGE 35 UPN DOWN - for Atari systems 


*JERACK- 


D2:TRACKS.M65 


5D4 4 

5D47 

*5049 

I5^4B 

5D4D 

5D4 F 

5D51 


201A5B 

A5D7 

2940" 

F007 

A 90 5_ 

85DC 

4C795D 


3P54 

5058 

5D5A 


5D5C 

5D5E 


A 50F 


9004 

C9FD 

9007 



AD10 

45DF 

1014 



5D65 

5D65 

5D68 


51 tefi 

.Min* 

* ‘5D£f 


5D71 


5D73 


5D76 


5D79 
" 5D7 4 
5D7R 


AD115B 

85D6 


ADA642 


A901 


85DC 


201A5B 


4C7E5D 


A5D6 

8D115B 


'5DZB 

5D7l CE14BB' 
’5D81 FOGS'" 


5D83 4CB95D 
5D86 __ ~ 
5D86 A906 


5D8E D026 
5D90 A280 
5D92 8E185B 


5D95 

5D98 

5D9A 

5D9D 


208965 

BOOS 

4C905E 


Sf)9D 


5DA0 

5DA2 

5DA5 


200E5A 
A9FF ' 
9D1D63 
20DC65 


8960 

8980~ 

9000 

9020 

,9040 

9060 

9080 

9100 


9120 

9160 

9180 

9200 

9220 

9240 


60 

00 

20 


9 340 

9 360 

9380 


94.00 

9420 

9440 



9520 

95&0 

9600 


_ J _S R TRACK 
IDA R+-5 
AND #$40 
BEQ PM0332 
LDA #NPATH 

_SJA R+8_ 

_ J_MP PM0V34 

PMD332 


LDA R+ll 
CMP #4 
BCC PM0S33 

_ C MP #-3 _ 

_ BCC PM 0554 
PMO333 


LDA BLSTNZR 
EOR R+ll 
BPL PM0V34 


PM0534 __ 

__ L DA B UGDIR 
STA R+2 


LDA BUG* 

St a r+o 

L0A #L 


STA R+8 


JSR TRACK 


JMP PM0342 


PM0V34- 

LDA tf+2, 
STA BUGDIR 


check for iumpinq over intrsctn 


force path if intrsct n 


6 

7 

» •. 

9 


; ,Check for change of dir. while jumping 
; check for illega l track_ __ 


; sign change? 

■ no, ok to track - branch 


else keep same dir. 



9620 


9640 


9660 


S equen c e ju mp pi ctur es 


9680 

9700 

9720 


9740 

9760 

9780 



9860 

9 880 

9900 


PM0342 

DEC jKp'CTR 
BEQ PM0V35 , 


J MP PM0V40 

P MO 035__ 

LDA #JMPDLY 


STA JMPCTR 
INX 

CPX #ENDJMP 


B NE PMQ V45 
L DX #128 
STX JMPNDX 


delay between jump moves 


inc for"next jump step 
end of sequence? 


no - bra nch 

else cancel jumr"i_ndex 



Check* for killinq a truck 


9980 _ JSR C OLIS N 

01000 0 BCS P MQV4 2 

010020 JMP PM0V90 

010040 PJM0V42 
010060 JSR ERASE 

010086 L-DA #-l 

010100 STA TYPE,X 

010120 JSR TRKDIE 

010140 
O10160 


if no hit 


0180 


erase the truck 
and cancel it 



do truck die sound 


bonus for ki11inq truck 
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4 






m 


* 




9) 


* 


h 6 


‘i 

V 

<6 


LJB 


PI 


010160 : bonus for killing truck 


010180 


PAGE 36 


UPN DOWN 


•for Atari systems 


TRAQK 


D2 s TRACK3.M65 




5DA8 _A900 
5DAA 85D9 


010200 

010220 


LDA #0 
STA R+5 


add 400 


5DAC, A904 
IfeAE 05DA 
BdBOv 20EE5F 


010240 

010260 

010280 


LDA #$04 
STA R +6 
JSR ADDP1 


add to score 


5DB3 4C905E 


010300 


JMP PM0V90 


010320 

010340 


Update jump picture/position 


wm J 

5DB6 8El r 85B 


01 036P, ; 

010380 PM0V45 
010400 STX JMPNDX 


JDB9 


010402 PMQV40 


5DB9 A5D5 
5DBB 18 


010440 


LDA R+l 


modify pljayejr/s Y 


010460 


CLC 


7D745C 

J5B*& A 8 . 

5DC0 BDA15C 


0104QO 
010500, 
010520 


ADC 

!tay 

LDA 


JDC3 AE115B 


010540 


5DC6 E003 


010560 


5DC8 9003 


010580 


LDX 

CPX 

BCC 


JMPADD,X 

; save 

JMPPIC ,X : get picture _ 

BUGDIR ; modify^ jfor left/ri qht 


#3 __ 

PM0V46 


5PQA 18 

5dcb, ' 

5 D C D 




.010600 CLC v 
WS&20 ADC #3 
011)640 PM0V46 


5DCD 85DD 


010660 


5DCF A6D4 


010630 


5DD1 8EA642 
5DJ04 Ss&Q. 


010700 


STA R+9 

LDX R+Q_ 

STX BUGX 


5 set _dir to .display 
; update pl ayer ? s X 


£dd6> sdISsb' 

5DD9 4C835E- 


'W 


0X0720 

M0740 

010772 


LDA- R +8 
STA BPTHCT 
JMP PMOVQO 


010780_ 

010800 

010820 


get next X position 


5DDC. r . 
5DDC W135B 

Sddf" doM 


010840 
010860 
010880 


PM0V60 

LDA SCRFLG ; X only changes after scrol1 
BNE PM0V611 




5DE1 4C6B5E 


5DE4 


SDE4 201A5B 


010882 

010884 

010900 


JMP_PM0V70. jl no turns if no scroll 
PM0V611 

JSR TRACK 


010920 

010940 

010960 


TURNS 


3DE7 


010980 PMQV61 


© 

©r 


5DE7 

A5D7 

011000 


LDA 

7) 

+ 

<A 

5DE9 

2940 

011020 


’and' 

#$40 

5DEB 

F07E 

011040 


BEQ 

PM0V70 

5DED 

AD00D3 

011060 


LDA 

PORTA 

5DF0 

290C 

011080 


AND 

#$0C 

5DF2 

C90C 

011100 


CMP 

#~$0C 

5DF4 

D02A 

011120 


BNE 

PM0628 



011140 

5 





011160 

5 

coast across 



011180 

_JL 



5DF6 

~AD~0A40 

011200 


LDA 

SCRSPD 

5DF9 

300F 

011220 


BMI 

PM0625 

5DFB 

A5D7 

011240 


LDA 

R+3 

5DFD 

2902 

011260 


AND 

#UR 

5DFF 

F009 

011280 


BEQ 

PM0625 


intersection? 




bs 


> 

ba 


la, 

to 


3 > 

2 » 


D 


I) 


3 
,3 I 

13: 

ul J 

I 

IS 




..) 

3 

J 

3 

J 


J 


branch if turning 


3 , 

«j -J 

c 

^ J 

48. 

rt 

4<* 

50i J 

i 

51, 

J 

53i 

Li 

55 l - 

4 j 


B 


check fwd 
check can turn 


in 


j 

Q 


■y 
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DFD 2902 


011260 


AND #UR 


r 

5DFF 

F009 

011280 

BEQ PM0625 

'S 

V 

PAGE 

37 

URN DOWN - -for 

Atari systems 



y.i- 

TRACsK, 




D2:TRACK3.M65 

i- 

- 















5E01 A5D6 

011300 

LDA R+2 

; check dir 







5E03 C903 

011320 

CMP #3 








5E05 D003 

011340 

BNE PM0625 








5£Q7 4C615E 

011360 

JMP PM0V68 

; force turn 


A 





5E0A 

011380 

PM0625 








5E0A AD0A40 

011400 

LDA SCRSPD 

; ... or dir 0, bwd 







5E0D 105C 

011420 

BPL PM0070 








5E0F A5D7 

011440 

LDA R-+-3 







» *r 

5Ei>l< 2908 

011460 

AND #LR 



i 


4 



5Ei3 FQ56 

011480 

, BpQ PM0V70 




v 




, 5E15.ASD6 

011500 

LDA R+2 








5E1 7 

5E19 

5E1B 

5EJD 

5E20 

5E20 

5E22 

5E24 


5E27 

5i^ET 

5E2D 

5E2F 

5E31 


D05 2 

E6D4 

E6D4 

4C615E 


2908 

_D025 

AD0A40 


300B 

..A5P7 

2952 

_F03C 

_A903 

4C615E 


01152 0 
01154 0 
011560~ 
011580 
011600 
6l1620 
011640 
011660 
011680 


011700 

01-1725 

011740 

01176 0 

01J780 

011800 


BNE PMQV70 
INC R+0 
INC R+0 
JMP PM0V68 

H 

PM0628 _ 

AND #8 
BN E PM0V64 
LDA SCRSPD 


BMI PM0V62 
EDA R+3 
AND #UR _ 
BEQ PM0V70 
LDA #3 
JMP PM0V68 


; fudge to align X 
5 -force turn 


5 _ tur ning right ? _ 

j!_no - bran ch 

5 going -forward or backward? 


; can make this pwfr*n? 

5 no - branch___ 

; forward, right 


117 W' 
1*0 


22 

i 


5E34 


011820 

PM0V62 

. ^ 





* £E3$ £>507 

011840 

LDA R+3 


y 

7 



5E36 

2908 

011860 

AND #LR 





5E38 

F031 

011880 

BEQ PM0V70 






5E3A 

A5D6 

011900 

LDA R+2 

; turning right, bwd needs fudge 









correction 





5E3C. 

5E3£ 

5E40 

C903 

'£>56$ 

E6D4 

011.920 

011940 

011960 

CMP #3 

BNE PM0V63 
INC R+0 











5E42 

E6D4 

011980 

INC R+0 






5E44 


012000 

PM0V63 






5E44 

A900 

012020 

LDA #0 

5 backward, right 





5E46 

4C615E 

012040 

JMP PM0V6S 






5E49 


012060 

PMQV64 

** 





5E49 

AD0A40 

012080 

LDA SCRSPD 






5E4C 

300B 

012100 

BMI PMQV66 







A5D7 


012120 


LDA R+- 


5E50 

2901 

012140 

AND #LJL 







3E52 

F017 

012160 

BEQ PM0V70 







5E54 

A9Q0 

012180 

.LDA #0 

5 

forward, left 





5E56 

4C615E 

012200 

JMP PM0V68 




■# 



5E59 


012220 

PM0V66 







5E59 

A5D7 

012240 

LDA R+3 







5E5B 

2904 

012260 

AND #LL 



* 




5E5D 

Pooc 

0,12280 

BEQ PM0V70 



**■ ‘ 

< 




5E5F 

A903 

012300 

LDA #3 

a 

backward, left 





5E61 


012320 

PM0V68 






i 

5E61 

S5D6 

012340 

STA R+2 

n 

change direction 





5E63 

A908 

012360 

LDA ttNPATH 


force path to get 

across intersection 




5E65 

0D125B 

012380 

STA BPTHCT 



* 




5E68 

4C705E 

012400 

JMP PM0V75 







5E6B 


012420 

PM0V70 
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3E<£>e 4C705E 


5E&B 


012400 JMP PMQV75 


012420 PMOV70 
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5E6B 

5E6D 

5E70 

5E7.0 

5E72 

5 E75 

5E76 


5E78 


A5DC 

8D125B 

ASl)4 

8DA642 

AA 

A5D5 


8DA742 


_012440 
012460" 
012480 
012500 
012520 
012540 
012560 


012580 


LDA R+8 
STA BPTHCT 
PM0V75 
LDA R+0 
STA BUGX 

_TAX_ 

___ LDA. R+l_ 

STA BUGY 


update X 


£E7B 

A 84 : 

012600 

TAY 

5E7C 

A5D6 

012620 

LDA R+2 

5E7E 

8D115B 

012640 

STA BUGDIR 


5E81 


5 


5E83 


5E85 

5E88 

5E8A 


85DD 


A5DE 


8D£>F5B 

A5§F 

8D105B 


5E8D 20ED5E 


5E9Q 
5E90 60 


5E91 

££91 

5E95 

5 E99 

5E9D_ 

5EA1 

5EA5 

5EA9 

5EAD 

5EB1 

5EB5 

5EB9 

5EBD 


80000003 

03434C81 


81808080 
80800000 
0303434C 


11111111 

80801111 

11802222 
rn c* o «=: r? ■=: 

80808080 

80808080 

8080 


012650 


012658 


012660 


0 v l 2680 
Q12700 
612720 


012740 

-012780. 

012800 


Q12820 
01290,0 
01*2920 


012940 


012960 


012980 


013000 

013.020 

013040 


013060 


013080 


013100 


013120 
013140 
013160 


013180 

"013200 

013220 


013240 

013260 

013280 


013300 


013320 


013340 


013360 

013380 


013400 

013420“ 


013440 

013460 

013480 


_STA__R+9 

>Moy'so 

LDA R+10 
STA BLSTINC 
LDA R+ll 
StA BLSTNZR 


JSR SHOCAR 


PM0V90 

RTS 


display VW at new position 


TABLE OF STATUS BYTES FOR ROAD 


CHARACTERS 


bits: 


'Road choices 
Ct "Upper Left 
i Upper Right 


2 Lower Left 


3 Lo wer Right 


4, grade 

= 00 flat 

_- 01 uphill ____ 

__j= 10 down hill _ _ 

__ 6_intersection _ _ 

-6 no intersct. 


= 1 intersection 
7 flags a char, which 

vehicles cannot be -on 


__Then if bit_ 0 =0 t ground __ 

=1 ? water _ 


RDSTAT1 

.BYTE 128,0, 0, 3,3, $43,$40,129 
" BYTE 12971287 1287 128, 128j 128,0, 0“ TZZ ~ 

Tbyte' 37s,$ 43 ,$4 C, 16 + 1 , 16 + 1 , 16 + 1 ,I 6 + 1 

.BYTE 128,128,16+1,16+1,16+1,128,32+2,32+2 
.”BYTE 32+2,~32+5, 32+5,32+5, 128,T28*,“l28,T28~~ 
.BYTE 128,128,128,128,128,128 


013500 ; Second table indicates which line 
























O13500 


Second table indicates which line 
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URN DOWN 


4 

9 

9 

9 

9 

9 


•for At a ri systems 


TRA£K 
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»EBF 


013520 ; o-f char, turning pt. occurs 
013540 RDSTAT2 


5EBF OOOQOOOO 013560 .BYTE 0,0,0,0,0,15,0,0 

£ECj5 OQ&FOOOO 

&g£7 OOQdOOO O 0 13580 _. B YTE 0, 0,0,0,0, 0,0, 0 


5ECB 00000000 


5 ECF 00000F00 01 3600 .BYTE 0,0,15,0,0,0,0,0 


5ED3 00000000 


.. \45ep7 00000000 01362.0 . BYTE 0, 0,0,0,0,0,0, 0 

3£pB ,00000000 

” OdS&OOOO 013640 -BYT E 0,0,0, O , 0,0, 6 , 0 


5EE3 00000000 
5EE7 60 OOOOOO 


013660 


BYTE 0,0,0,0,0,0 


5EEB 0000 


=0001 

=0002 


013680 5 

013700 UL = $01 

013720 UR = $02 


=0004 

=0008 


013740 LL = $04 


013760 L R = $08 

013780 ; _ 


2 ! 

3! 

ui 

5 

I 

6 

F’ 

8 i 

9 i 

I 10 ! 

Hj 

12 ' 

13 

161 

1 

V 

:j 

aol 

|2l| 

( 22 | 

(* 

‘*1 

26i 

27l 

i ■ 
28 
2 ?i 

1 

30 


<r 


•' 

9 


9 

9 

9 

9 

9 

6 


0_iSEO0 ; 
0A3S?0 ; 
6 f3840, s 


01 5860 JI_DRAW THE CAR AS ft P /M GRAPHIC 
0 13880 * Xr eg and Y reg hold car’s X,Y 


5EED 


013900 SHCJCAR 


013910 

013912 


Direction to display is R+9 


k 2 


w 


Pi 

(331 



SEED «a 

013920 

TXA 



convert to P/M X coord. 






5EEE 18 

013940 

CLC 









5EEF 6930 

013970 

ADC 

#48 








5EF1 8D1860 

013980 

STA 

BUGHO 

• 

set X 





v *»itf 
< 

5EF4> 8D1960 
6908 

014.000 

014620 

.STA 

ADC 

BUGH1 
#8 f 


. - - - t- •' .... 

<*- * ■- 





¥ 

8D1A60 

6 l 4040' 

STA 

BUGH2 








5EFC 8D1B60 

014060 

STA 

BUGH3 









014080 

H 










014100 

; Update Y 









*014120 

■ 









5EFF 98 

014140 

TYA 


■ 

J 

convert to P/M Y coor'd. 






T5F00 oa 

014160 

ASL 

A 








5F01 18 

014180 

CLC 










014420 

■ 









5F02 6920 

014440 

ADC 

#32 







« 

*$E04 A 8 
'5F$S c£l55B * 

14460 
„ O'144,86 

TAY 

CRY 

OLDBUGY* 

5 

change., in Y? * 






5F08. DOOA 

61 4500 

BNE 

SH 0603 

■ 

JL 

yes - erase and redraw \ ? 

r* 





5F0A A5DD 

014520 

LDA 

R+9 


change in direction? 






5F0C CD165B 

014540 

CMP 

OLDBDIR 








5F0F D02D 

014560 

BNE 

SH0C07 

J 

yes - redraw but don’t erase 






5F11 4C725F 

014580* 

,JMP 

SH0C20 

■ 

9 

exit without rewriting P/M 







014600 

9 

9 



* 







014620 

; erase old BUG 

* 







014640 










5F14 

014660 

SH0C03 








5F14 98 

014680 

TYA 









5F15 AC155B 

014700 

LDY 

OLDBUGY 








5F18 8D155B 

014720 

STA 

OLDBUGY 

9 

save new Y pos 






3 4 


I4S 


4 
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¥ 


5F15 AC155B 


5F18 8D155B 


014700 LDY OLDBUGY 


014720 STA OLDBUGY ; save new Y pas 
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.5F1B A900 

5F1D A205 

014740" 

014760 

LDA #0 

LDX #5 ; erase 5 top andbottom byte of old image 

_ 

- 


1 

\ .SFlf ' 

01478Q 

SHQC05 





5FtF 990074 

014800 

STA PO,Y 





' r% sft&e!, 991B74 

014810 

STA PO+27,Y 





5F25 990075 

014820 

STA P1,Y 





5F28 991B75 

014830 

STA PI+27,Y 





5F2B 990076 

014840 

STA P2,Y 






-jsj^i 

5F34 


5F37 

5F3Q 

5F39 


5F3B 

5F3e 

~5F3E: 
5F40 
~ 5F42 


??1876 

99007 i 

991B77 


C 8 

caJ_“ 

D0E4 


£C1%5B 


A5DD 

C906 

9003 



vv 0148p0 ,STA 

^t>i4¥£b ,,, ‘ :sta 

014870 STA 


014880 I NY 
~ 014900 DEX 
014920 BNE 


014940 LDY 
r . 014960 SH0C07 

614980 ; _ 

0150 00 LDA 
015020' CMP 
015039 BCC 


.QXA P2+27,Y 
:§TA P3„Y 
STA P3+27.V 


INY _ 

DEX 

BNE SH0C05 


LDY OLDBUGY ; restore new Y 


LDA R+9 
CMP #6 
BCC SH0C08 


form_ ind ex t o VW _P/M data_ 
s check dir. 


,5F44 4C755R 

W&7 . 

* SlM'&SB 

015Q40 

OlpTOO 

.015120 

JMP SH0C30 K : don^t draw invKTid dir. „ 

* * 

SHGC08 

STA OLSbDIR 





5F4A AA 

015140 

TAX 







5F4B BD765F 

015160 

LDA M32TBL,X ; *32 







5F4E AA 

015180 

TAX 







pF4F if * 

015200 

CLC 







5F50 6920 

015220 

ADC &32 ; kbytes per P/M 







SF52 85D4 

015240 

STA R+O 








015260 








5F54 

015280 

SH0C10 







5F54 BD1C60 

015300 

LDA BUGPO,X 







i 5F.57 990074 < 

01.5.320 

STA PO, Y 







5F5A 1DDC60 * 

015340 

LDA SUSP!,X 







5F5D 990075 

015360 

STA PI,Y 

* 

* 





5F60 BD9C61 

015380 

LDA BUGP2,X 








5F63 990076 


5F66 BD5C62 


5F69 990p77 
5F6C C'§ 

5F6D ES 


5 F6E E4D4 

5F70 DOE 2_ 

5F72 


5F72 207E5F 
5F75 
5F75 60 


5F76 00204060 
5F7A SOAOCOEO 


015400 


015420 


015440 
015460 
015480 


015500 

015520 

015540 


015560 

015570 

615580 


015600 


015620 


015640 


015660' 


STA P2,Y 


LDA BUGP3,X 


STA P3,Y 
INY 
I NX 


CPX _R+0_ 

BNE SHOCK) 
SH0C20 


JSR WHEELS 
SH0C30 
RTS 


spin the wheels 


M32TBL : *32 table 


.BYTE 0,32,64,96,128,160,192,224 


5F7E 


015662 


015680 
015700 
015720 
015740 
015760 WHEELS 


DO WHEEL SPIN 
























3F7E 
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5F7E_ 

5F81 


AD155B 

F05E 


015780_ 
015800 


LDA SCRFLG only spin while scrolling 
‘ BEQ WHEE20 


5F83 ADIQ5B 
* * 5i<)59 

5F88 A5DD* 

0.15820 

015840 

015860 

LDA JMPNDX ; no spin while jumping 

BPL WHFE20 

LDA R+9 ; choose data depending on direction 







5F8A 297F 

015880 

AND #$7F 









5F8C C903 

015900 

CMP #3 









* 5F8E 900E 

015920 

BCC WHEE05 









5F9Q 38 

015940 

SEC ; facing ri’ght 









5F9l. Ej903. 

015960 

SBC #3 









5F93' ftdCi 

015980 

LDY #$C1 









.. 5F95 84D5 

016000 

STY R+l 









5F97 AOAO 

016020 

LDY #$A0 









5F99 84DD 

016040 

STY R+9 









5F9B 4CA65F 

016060 

JMP WHEE10 









5F9fe 

016080 

WHEE05 









5F9E A005 

016100 

LDY #$05 ; -f.acinq le-ft 









5FA0 84D5 

016120 

STY R+l 









5FA2 AO83 

016140 

LDY #$83 









5FA4 84DD 

016160 

STY R+9 









5PA6 

016180 

WHEglO 









5FA6- OA 

016200 

ASL R 1 









5FA7 5A" 

016220 

ASL A 






. 



5FA8 85D4 

016240 

STA R+0 









5FAA CE195B 

016300 

DEC WHLSEQ 









5FAD AD195B 

016340 

LDA WHLSEQ 5 wheel sequence ctr 









5FB0 2901 

016360 

AND #1 ; 2 positions -for wheels 









SFB2, 05D4 

016380 

ORA R+0 









5FB4 AA 

016400 

TAX 







■ 


5FB5 ADA742 

016420 

LDA BUGY 









5FB8 18 

016440 

CLC 









5FB9 6910 

016460 

ADC #16 









-5FBB OA 

016480 

,ASL, A 









‘5FBCT 85D7 

016500 

STA R+3 









5FBE 7DE25F 

016520 

ADC WHLF’OS, X ; carry clear 









5FC1 A 8 

016540 

TAY 










5FC2_A_5D5 
5FC4 990074 
5FC7 A5DD 
5FC9 990076 

5FCC 8 A _ 

5FCD 4901 
5FCF 05D4 

SFDl'AA _ 

5FD2 BDE25F 
5FD5 18 

5FD6 65D7 _ 

5FD8 A 8 
5FD9_A9p0 

5FDB 99007 4_ 

5FDE 990076 
5FE1 

5FE1 60__ 

5FE2 

5FE2 1A1B1C1D 
5FE6 1B1C1D1E 
5FEA 1A1B1C1D 


016560 LDA 
016580 STA 

016600 LDA 
016620 STA 

01 6640 TXA 
016660, EQR 
016680 QRA_ 
016700 TAX 
016720 LDA 
016745 CLC 

016760 ADC 
016780 TA_Y_ 
JM_6800 LDA 
016820 STA 
016840 STA 
016860 WHEE20 
016880 RTS 
016900 5 
016920 WHL.P0S 
016940 -BYT 
016960 -BYT 
016980 .BYT 


L DA R+ l_ 

STA P0,Y 
LDA R+9 
STA F’2, Y 

TXA _ 

EQR #1 

0RA_ R+0 _ _ 

TAX _ 

LDA WHLP0S,X 
CLC 

ADC R+3 

TAY __ 

~LDA #0_ 

STA PO-Y 
STA P2,Y 



WHLF'OS ; Y o-f-fset -for wheel marks 

-BYTE 26,27,28,2? 5 level 

.BYTE 27,28,29,30 s up _ 

.BYTE 26,27,28,29 ; down 












imuuuiM 


5FEA 1A1B1C1D 016980 .BYTE 26,27,28,29 5 down 
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5 FEE 

5FEE 

5FF1 


A DOC) 40 
85D6 


6018 


017000 

017020 


017040 

017060 

017080 

017_1_00 

01 7120 

017140 


ADD TO PLAYER1 * S SCORE 


ADDP1 


LDA P SCQRO 
STA R+2 


5.FF3 

ADO140' 

017160 

LDA 

ESC0R1 

5FF6 

85D7 

017180 

STA 

R+3 

5FF8 

AD0240 

01-7200 

LDA 

PSC0R2 

5FFB 

85D8 

017220 

STA 

R+4 

5FFD 

A 9 BA 

017240 

LDA 

# <HMEM +6 

5FFF 

85D4 

017260 

STA 

R+0 

6001 

A947 

017280 

LDA 

# >HMEM +6 

6003 

85DS 

017'3Q0 

STA 

R+l 

,6005 

20AE53 

017320 

JSR 

ADDSCOR 

6008* 

A5D6 

017340 

LDA 

R+2 

600A 

8D0040 

017360 

STA* 

PSCORO 

600D" 

A5D7 " 

017380 

LDA 

R+3 

6 OOF 

8D0.1.40 

017400 

STA 

PSCOR1 

6012 A5.6'b 

017420 

LDA 

R+4 

6014 

8D0240 

017440 

STA 

PSC0R2 

6017 

60 

017460 

RTS 



017480 
017500 


60/19 
601A 
60 IB 


017520 

017540 

017560 

014480 

0900 


J31JGH0 * 
BUGH1 
BUGM2 
BUGH3 


»+l 
*= # + l 
*'= *fl 
*= *+i 


.INCLUDE #D2:PMCAR.M65 
/PAGE "PM DATA"" ‘ 



D2:TRACK3i K65 










UPN DOWN 


■for Atari systems 


5pr<; 
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1000 

1020 


; DATA FOR PLAYER’S CAR 
■ CAR IS A PLAYER MISSILE GRAPHIC 


601C 


60IE 00010307 
6020 070F3B3B 


1040 

1060 

4080 


BUGPO 
s PO 


LEFT, LEVEL 


.BYTE O,1,5,7,7,15,59,59 


6024 0B39697D 


1100 


6028 75171B1B 


, BYTE_ 11 s 57, 105, 125, 117,23^ 27 j ,_27_ 


602Q 


584F4F4F 

(5 AO 30101 
6034 ' b46dx>4& 


'6030 


11.20, * * BYTE 88,79,79,, 79,, 4 0,3,1,1 

* 

11, .BYTE 4,4,4,4,4,4,6,0 _ 


6038 04040000 


603C 307E7E38 


J4 60 
1180 


PO 


LEFT, UP 


6040 

6044 

604G 


393F3F37 

1B193D2# 

2C2§0ftbA 


.BYTE 48,126,126,56,57,65,65,5 5 


120Q 


i BYTE 27 ? 2$,61,45,44,45,10,10 


604C 02050506 


1220 


B YTE 2,5,5,6, 6,15,5,5 


6050 060F0303 


6054 07050504 


1240 


. BYTE 7,5,5,4 ,„4,4,0,0 


6.058 04040000' 
605C bboodooi 


1266 ; po Left, down" 

12&0 _ .BYTE 0,0,0, 1,3, 5,7y7 




<*v $< 

* # 


6060 03030707 


6064 070D0909 


1300 


.BY TE 7,13, 9 ,9,9,5 7,59,15 


6068 09393B0F 


6 Q 6 C V 
-6 p70 
6074 


34/B7F7F 

44444404' 


1320 

1340 


.BYTE 52, 123, 127', 127,27, 19, 17,81 

i Kg* * '-“Mr *<-*X 

.BYTfe 68 , 68 , 68 , 4,4,4, 0, O__ 


**"fc ** '> V ^ 


6078 04040000 


1360 s 


P0_ R IGHT, LEVEL 


607C 00070F0F 


1380 


.BYTE 0,7,15,15,51,51,51,63 


V. », 


6004 S.52T2121 . }400 
‘£f*>i217F“ ' 


.BYTE 51,53,33,33,33,33,33,127 


608C 55D4FFFD 


6090 3CFDC1C1 


6094 00000000 


JL420 

1440 


.B YTE 85,212, 255,255, 60,255,195,195 


■BYTE 0,0,0,0,0,0,0,0 


6098: 

** * 


QQQQOOQQ 


1460 

609c WifriYit i4ao 


5 PO RIGHt, UP 

.BYTE 12,51,51,28,51,51,63,65 


60 AO 1F1F3F3F 


60A4 3F3F3F3F 


1500 


60A8 3F3F3321 


- BYT E 65 ,63,63,65 ,65,65,51,55 


60AC 

60B0 

60B4 


21617FD5 

DSF^FDFJp" 

PDCihfoo' 


60B8 00000000 


152.0 ' .BYTE 33,97,127,213,213,254,253,253 

j540 .BYTE 255,-195,195,6,0,0,0,0 


1560 5 PO RIGHT, DOWN 


60BC 00000007 


1580 


60C0 

60C4 

60C8 


0F0F1F1F 
33212121 
2121217F 


.BYTE 0,0,0,7,15,15,51,51 


1600 


BYTE 51 ,’33,'35, 33, 33,33, 33,127 


At. 


60 CC 
60D0 
60D4 
60DS 


5554FFFF 

FDFDC1C1 

00000000 

OOOOOOOO 


1620 .BYTE 85,84,255,255,253,253,193,193 

1640 .BYTE O,0,O,0,0,0,0,0 


1660 BUGPi 






















60D8 00000000 







» 




619C 


2280 BUGF'2 

2300 ; P2 LEFT, LEVEL 

2320 .BYTE 0.224,240.240.248.248.248.252 


619C 00E0F0F0 


Moore Business rorms, me. sv 


















RYTE 0.224,240,240,248,248,248,252 
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61A4 

61AB 


blfaO 

6 |B 0 

MB4 

61B8 


CC848484 L 

848484FE 


$A2BpFBR 

«j3t)BF838,3 

00000000 

00000000 


2340 


.BYTE 204,132 1 132,132,132 3 132,13 


2360 


.BYTE 170,43,255,191,60,191,131,131 


2380 


■BYTE O , 0,0,0,0, 0,0,0 



61BC 


6 ICO. 



61CC 
6 IDO 
61D4~ 


61D8 


30F8F838 


F0F8FCFC 

F^e(3C84 


8 486FEAB 

AB7FBFBF 

BF838300 


OOQOOOOO 


2400 

2420 


l_ P2 LEFT, UP 

. BYTE 48, 248, 248,56, 248, 248,252', 252 


..BYTE 252,‘252,252, 252, 252, ^52, 204, 132 


2460 


BYTE 132,134,254,171,171,127,191,191 


.BYTE 191,131,131,0,0,0,0,0 


6 ibc 

61E0 
6 1E4 
61E8 


MEg 


6ifo: 

i iw 


61F8 


OOOOOQEO 

F0F0 F 8F8 

CC848484 

848484FE 


AA2AFFFF 

BFBFS3 X |3 

oodboood 


00000000 


2500 

2520 


; P2 LEFT, DOWI\| 

■BYTE 0, 0,0,224,240,240, 248,248 


. BYTE 204 ,132, 132 , 132, 132^132,_132 ,254 


2560 


.BYTE 170,42,255,255,191,191,131,131 


25^0 


BYTE O,0,0,0,0,0,0,0 


61FC 


* 6*200 


6208 


620C 

6210 

6214 


4,218, 


0080C0E0 


EOFODCDC 

D09C96BE 

AEE 8 D 8 D 8 


1AF2F2F2 
5QC0 8080 
20202020 


20200QQ0 


2600 

2620 


j_P2 __ RIGHT, LEVEL ____ 

.BYTE bVl28,192,224,224,240,220,220 


2640 


.BYTE, 208, 156, jffep, 190, 174,232,216,216 


2660 _.BYTE 26,242,242,242,80,1 92,128 ,128 


2680 


.BYTE 32,32,32,32,32,32,0,0 


621C. 


6220 


6224 

“6228“ 


622C 

6230 

6234 

6238 


0C7E7E1C 


9CFC FCEC 

D898BCB4 

34145050 " 

40A0A060 

60F0C0C0 

E0A0A020 

20200000 


2700 

^720 


5 P2 RIGHT, UP’ 

.BYTEjf 12,126,126,28,156,252,252,236 


BYTE 216,152,188,180, 52,20, 80,80 


2760 


BYTE 64,160,160,96,96,240,492,192 


22780 


.BYTE 224,160\160,32,32,32,0,0 ___ _ 


623C 

624b 

6244 

6248 


6250 


00000080 

gOCOEOEQ’ 

fe0B0909b 

909CPfcF0 


CDEFEFE 


D 8 C 8888 A 


2800 


2820 


P2 RIGHT, DOWN 


.BYTE 0,0,0,128,192,192,224,224 


2840 


.BYTE 224,176,144,144,144,156,220,240 


2860 


. BYTE 44,222,254,254,216,200,136,138 


2880 


2,32,32,0,0 


6258 

625C 


J0200000 1 


KJ 


625C 

6260 

6264 

6268 


626C 


OOOOEOFO 

F0FSF8C8 

80800Q70 

78787800 


54D40041 


2900 

2920 


2940 


BUGP3 


LEFT, LEVEL 


BYTE O,0,224,240,240,248,248,200 


2960 


.BYTE 128, 128,0,112, 1-20, 120, 120, Q 


2980 


.BYTE 84,212,0,65,195,64,124,124 


B2:PMCAR.M65 



















6268 78787800 
626C 54D40041 


2980 


BYTE 84,212,0,65,195 ,64,124,124 
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4 

ff 

2 

3 

PJi DftJA 



y 


4 



5 

6270 C3407C7C 





6 

6274 FFFF 8 F 8 F 

3000 

.BYTE 

255,255,143,143,143.15.6.6 


7 

6278 8F0F0606 





8 


3020 4 } 

P3 LEFT, UP 


9 

627C d0Q0’C040 

3040 

.BYTE 

0.192,192,64,0,224.248.248 


10 

6280 00E0F8F8 


II 

6284 FCFCFC78 

3060 

.BYTE 

252,252,252,120,48.0.48.120 


12 

6288 30003078 





13 

628C 787800,54 

308Q 

" .BYTE 

1*20,i20y0* 84,84, 128,195,195 


14 

6290 5480C3£3 





IS 

6294 C3?C0C8F 

3100 

.BYTE 

195,124,12,143,143.143,135,6 


16 

6298 8F8F8706 





17 


3120 5 

P3 LEFT, DOWN 


18 

629C 00000000 

3140 

. BYTE 

0,0,0,0,224,240,240.200 


19 

62AO, E0F0F0C8 


* 


i 

20 

62A4 80007078 

3160 

.BYTE 

128,0, 112 , 120 , 120 , 420 , 120 ., 0 


2' 

62A8 78787800 





22 

62AC 54D40083 

3180 

.BYTE 

84,212,0,131,195,64,124,124 


23 

62B0 C3407C7C 



* 


24 

62B4 FFFFBFBF 

3200 

.BYTE 

255,255,191,191,143,15,7,6 


25 

62BS 8f%PF0706 





26 

... 

3,220 ss 

P3 RIGHT. LEOEL 


27 

62 ic t>c>5oooso 

, 3240 

.BYTE 

0,0,0,128,192,192,204,140 


28 

62C0 C0C0CC8C 





29 

62C4 88606C4E 

3260 

. BYTE 

136,96,108,78,89,31,55,55 


30 

62C8 591F3737 


I3'f 62CC F76F6FQF 5280 
33 EFB67O70 “ 

3300 


33 L_ 62D4 F0F0F0FQ 
W 62D8 F0F0E060 


.BYTE 247, i> l* f 111,207, £39, 182,112,112 
BYTE 240, 240,24 0,2 40, 240,240,224,96 


3320 : P3 RIGHT, UP 





62DC 

00606424 

3340 

■ BYTE 

0,96,100,36,104,10,138,26 


62E0 V 

'680A8A1A 




3. 

62E4 

3626565E 

3360 

.BYTE 

54,38,86,94,222, 254, 19<kl 88 


62E8 

DEFEBEBC 




lr 

62EC 

B07070D0 

3380 

.BYTE 

176,112,112,208,208,80,176,176 

•i 

62F0 

D050BOBO 




2 

62F4 

B07070F0 

3400 

.BYTE 

176,112,112,240,240,240,224,96 

-i 

62F8 

FOFOE060 




i 



3420 ; 

P3 RIGHT, DOWN 

5 L . 

62FC 

00000000 

3440 

.BYTE 

0,0,0,0,0,128,192, 192 


6300 

0080C0CG 




tI 

6304 

80000040 

3460 

.BYTE 

128,0,0,64,96,108,44 5 8 


6308 

606C2C08 




EEg 

630C 

D0246ED9 

3480 

.BYTE 

208,36,110,217,175,55,119,119 


6310 

AF3?7777 



* 


6314 

FFFFFFFF 

3500 

.BYTE 

255,255,255,255,246,240,224 . 96 

Mm 

6318 

F6F0E060 







3600 ; 

END 

OF PLAYER P/M DATA 




014500 

.INCLUDE #D2:MOVE . M65 

5 

6 

7 



1000 

.PAGE 

"MOVE” 



D2: PMCA,R. M65 
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WOVE 


UPN DOWN 
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D2:MOVE.M65 



-631C 
6 | 1 D 


1020 


1040 


1Q60 
108,0 
1100 


1120 

U40 

1160 

1180. 


UP ’N DOWN 
MOVE.M65 


TABLES FOR OBJECT ENTRIES 


632F 


6338 

6341 

6v54A 

6353 

"635C 


1220 


1240 


±260 

1280 

1300 

1320' 
1 34 b 


OBJMAX = 1 
YC RSH «J4 
XCR5H = 15 
.REDRWO #= *+l 
TYPE #= *+9 
XPOS *= *+9 


YPOS *- *+9 


DIR * = *+9 

SPEED *+9 
SPDCTR * = #+9 
MQDE 

PATH * = #+-9 


; max # of objects on screen_ 

; Y tolerance on coll isio n detect 

5 redraw obtjO flag 


6365 

1360 

LASTINC *= *+9 

L. 

636E 

1380 

LASTNZR *= *+9 

4 I* 

6377 

1400 

OVRLAY #= #+9 

1 : 



ROUTINE; TO J10y£ ALL OBJECTS' IN 
THE OBJECT TABLE 


_6380 

6380 


638% 

63^5 

6385 

6387 

6387 


6388 


43SA 

63,88- 

638B 


638E 


6390 


6392 


6393 

63<^5; 

6395 


6396 

6399 

639C 


A200 


BD1D63 

1004 

CA~ “ 


10F8 


60 

&D4163 


1005 


49FF 


18 


6901 

18 


7D4A63 

9D4A63 

90E9 


1480 

1500 

1520 


T 540' 
15<hb 

1580 

1600 

1620 


1640 


1660 
1680 
1700 


}780 

ieoo 

1820 


1840 

1860 

1880 


MOVE 

LDX 


MOVE 10* 
LDA 

_ BPL 

M0VE15_ 

DEX 


BPL 


RTS 

MOVE16 

Ida 


BPL 

EOR] 

CLC 


ADC 

M0VE2O 

CLC 


#OBJMAX' 


type:, X 

MOVE16 


MOVE10 


T ; max # obiects 


; active ..entry? 
; yes - branch 


SPEED,X ; time to move? 


M 0VE2 0 

¥$FF 



SPDCTR ,X 
SPDCTR ,~X 
MOVE15 


no move - branch 


1 


, 3 



LDA #0 




STA REDRWO 




63A3 
63A5 
63 A7 


63AA 
63AC 
63AE 
63B1 
63B 3 
63B6 
63B6 
63B9 


E000 

FOOF_ 

202A64 


900A 

A200 

200E5A 

A201 

8E1C63 


1960 


_1980_ 

2000 


2020 
2040 
2060 
2080 
2100 
2120 
2140 
2 1 <SO 


CPX 


______ BEQ 

JSR 


BCC 

LDX 

JSR 

LDX 

STX 

M0VE25 

_ JSR 

LDY 


#0 


M0VE2 

OVRLAP 


M0VE25 

#0 

ERASE 

#1 

REDRWO 


















Moore Business Forms, Inc. sv 1412RH 
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6462 


4360 TINIT 


4380 ; Check probabilities to see if to init truck 
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MOVE, 


D2:MOVE. M65 


6462 
6465 
64^7 
6467 
646A 
646C 
646F 


647,1 

6472 


6475 

6475 


AC8865 

AJ206 

B95E65 

F005 

CD0A D2 

BOOS 


C8 

CA 


D0F2 

60 


6476 


6476 A200_ 

6478 “ ‘ “ 


6478*BD11)63 
6478 ,3pp4 
647D CA 


647E i 0F8_ 

6480 60’ 


6481 


6481 98 

64 82 48 
“6483 8 A 


64Q4 48 


648B 1,8 
648C f9'82 
648F 85E1 


649JL 

6493 


6496 

6498 

649A 


649C 

649E 

649F 

64A1 

64A1 

64A5 

64A6 

64A8 

64AA 

64AB 

64AD 


A5E1_ 

4D0A40 


30 IB 
A*5E1 
1005 


49FF __ 
~18 

~690T ~ 

85DC 

AD0A40 

1005 

49FF 

18 

6901 


4400 

4420 

4440 

4460 

4480 

4 500 

4520 

4540 


4560 

458Q 

4600 


4620 

4640 

4660 


4680 

4700 

4720 


4740 

4760 

4780 


4 

4 

4 


4860 

4880 

4900 


4.920 

4940 

4960 


4980 

5000 

5020 


5040 

56£6 

5080 


LDY TPNDX 1 
LDX #NTYPES~'~‘ 


let index to truck parameters 


5100 ; 

6485 

AD0AD2 

5120 

6488 

397C65 

5140 


TINI10 

LDA TPRQ B, Y ; get 'probability of 

BEQ TINI15 __ 

CMP R ANDOM ; init this type? 
BCS TINI20 s yes - branch 


TIN115 

fNY 

, DEX 


_BNE_ TIN110 _ 

__ RTS _ __ j_ no inits this time 


; Find an open slot 

■ 

TIN!20 


__LDX #QBJM AX—1 _ 

j 5 LDX #1 _; 5 ^ 5 DEBUG" 

TINI30 


LDA TYPE,X 
BMI TINI40 
DEX 


BPL TI N150 __ 

RTS _ __ ; no o pe n si ots _ 


5 Only init if yW oyertakes/overtaken, 
TIN140 


TYA___ _ 

PHA_' __ 

TXA ' “ 


PHA 

» 

5 

Check speeds to see who overtakes 


AND TMAXSP.Y 


abi 1 ity of init_ 


5220 

5240 

5260 


5280 

5300 

5520 

5340 

_5360 

5580 

*5400 

5420 

5440 

5460 

5480 

5500 

5520 

5540 


ADC TMINSP,Y 
STA R+13 


LDA R+13_ ; 

EOR SCR5PD 
BMI TIN553 
LDA R+13 
BPL TINI50 
‘ EOR #$FF__ 

_CLC __‘ 

ADC #1~~ _ 

TINI50 

STA R +8 
LDA SfcRSPD 
BPL TIN152 
EOR tf$FF 
CLC 

ADC #1 _ 

TINI52 


; check _si_gns 

5 opposite dir - branch 
5 check magnitudes 











<h4AB 

6901 

5520 

ADC #1 



] mr- 

64AD 


5540 

TINI52 



m 

PAGE 

51 
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• 



N 



64AD 

64AF 


mst . 

* 

* 64 B3 
64B6 
64B8 


64B8 

:64BA; 


C5DC 

900C 


E<>14 


AD0A40 

300A 


A901 

4CCF64 


w 64 BD A00A40 


5560 

5580 


5600 

5620 

5640 

5660 

5680 

5700 

572Q 

5740 

5760 


_ CMP R+8 

_ BCC TIN552 j VW is siower — truck wil l overtake 

BEQ TINI54 ; same speed 
TIN553 

LDA SCRSPD ; VW is -faster ______ 

BMI TIN550 


TIN551 

LDA # 1 
JMP TINI56 
TIN552 

LDA SCRSPD 


init at toi 


>1* 

>2i 


64CO 30 F 6 

5780 

BMI 

TIN551 






16 

64C2 

64C2 A95F 

5800 

5820 

TIN550 

LDA 

#95 T" 

11 bottom 

— 

- . - 

- - 

- 

■17 

'8 

64C4 4CCF64 
64G7 

64C/ ;'AD0AD2 

584 6 
5860 
5880 

JMP 

TINI54 

LDA 

TINI56 

RANDOM : 

.select top/bot randomly’" 





’9 

*20 

|2> 


64CA 


64 CC 
~64CF 


64CF 
64D1 
64 D 2 


_64D4_ 

_64D7_ 

64D8 


64 DS 

Mi)D 


10F6 


4CB864 


85DB 

18 

690B 


6DOS40 


AA 


BD3C40 


85D4 

bKB41 

85D5 


5900 


5920 

5940 


5.960 


BPL TIN550 


JMP TIN551 


&bbd 


020 

040 

060 


6080 
Mbo 
61 26 


TINI56 


STA Rt? 

ADC #9TRkPT 


-f i rid road at track doi nt 


ADC D SCROL __ 

TAX ~__ 

LDA DSPTBL. X : set ptr to line 


STA R+0 
LDA D'SP.tBH 3 X 
STA R+l 


Put truck on road 
Search for road 


6180 


64 E 2 
64E4. 
64E6 

A027 

A200 

6200 la*DY 

6220 L.DX V 

6240 TINI60 

#39 

#0 

; 40 bytes/line 

V- 




64E6 

B1D4 

6260 

LDA 

<R+0)„ 

Y 





64E8 

C9FF 

6280 

CMP 

#$FF 

; look for road on this line 





64EA 

D029 

6300 

BNE 

TINI70 






64EC 

88 

6320 

DEY 


? must get at least 2 road bytes %a be 










sure 





64ED 

D1D4 

6340 

CMP 

(R+0>, 

Y 





64EF 

D024 

6360 

BNE 

TINI70 






64F1 

88 

6380 

DEY 


; now find next non-road byte 





64F2 

D1D4 

6400 

CMP 

< R+0) , 

Y 





64F4 

DQ05 

6420 

BNE 

TIN162 

K 





64F6 

88 

6440 

D£Y 


4 road bytes ib too many - can’t be road 





’64F7 

D1D4 

6460 

CMP 

(R+0) q 

Y , 





64F9 

_F 01A 

6480 

BEQ 

TINI70 






64FB 


6500 TINI62 







64FB 

A903 

6520 

LDA 

#3 

S find left pixel of road 





64FD 

85DE 

6540 

STA 

R+10 






64FF 

$JD4 

6560 

LDA 

(R+0), 

Y 





65b l 


6580 TINI64 








6501 

6502 

6504 

6505 


6507 


6A 

9008 

6A 

9005 


C6DE 


6600 

6620 

6640 

6660 


6680 


ROR A 
BCC TINI66 
ROR A 
BCC TIN166 


DEC RH-10 


a 


Moors Bus I nets 










6505 9005 


6507 C6DE 


PAGE 5: 


6660 


6680 


UPN DOWN 


BCC TINI66 


DEC R-t-iO 
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6509 4C0165 

6700 

JMP TIN164 

650C 

6720 

TIN166 




6 5 OF 

18 

6800 

CLC 




6510 

65DE 

6820 

J ADC 

R+10 



6512 

95D6 

6840 

STA 

R+2, X 

; save 

* 



6516 1OCE _ 
6518 EQQO 
651A FOOB 


'^5lW v 84D^i 

' jj* 

65® ^DbAD4 


6521 2903 


692 0 

6940 

6960 




J3PL IINI60_ 

CPX #0 $ -find any ro ad s? 

BEQ TINI74 3 no - branch 


STX R +6 s^paAe: # rpads •fpund,^ 

LDA RANDOM ----- 1 “ 


AND #$03 


: ;-£- '■',<?£*■ 
./ £- 


,’figure oUt* which Xpos to use 


max #roads -found—4 


6523 C5DA' 




CMP R +6 


valid road? 



6528 AA 

7160 

TAX 


6529 68 

7180 

PLA 


652A A 8 

7200 

TAY 




652C 

AA 

7280 

TAX 



652D 

B5D6 

~ 7300 

LDA 

R+2, X 


652F 

85DA 

7320 

STA 

R +6 

3 save initial Xpos 


j 6533 

68 

7400 

PLA 

6534 

AS 

7420 

TAY 


7440 


Init truck's parameterp 


! 


6535 A5DA 


6537 9D2663 


653A A5DB 


LDA R+7 


W 653& „ 9>t>2 K6 3 * 

^ % 

654L9D4®3 , 

7580 

7 6 AO 
7620 

sta y;pos,x 

LI)A ffM3 

STA SPEED,X „ 





■c £ 

6544 98 

7640 

TVA 






6545 9D1D63 

7660 

STA TYPE,X 







7680 ; 








A54$-*.2Q2£6£ 

654fe 

^454It COFF 
6540 F007 
654F B97763 
6552 AS 

6555 4C4B65 

6556 


76£32 JSR OVRLAP 5 see i-f overlaps 

76^3 flNI*?0 

7684 'CPy #$FF _ K , 

7686 BEQ TINI00 ; no overlap 

7688 LDA OVRLAY , Y 5 -find end o-f chain 

7690 TAY 

7692 JMP TIN190 


7694 TIN100 
































1 N I 9O 



7694 TINIOO 


4 


* 

* 


9 

9 

9 

9 

9. 

a 

a 

a 

.1 

a 

a 

a 

a 

9 

9 

<§ 

<9 




P2| 


P3 


M 


M 


WO 


M 




16 

6568 0000 



17 

656A 00050505 7900 

. BYTE 0,5,5,5*0,0 j_ 



PAGE 
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-r^ 


6556 98 


6557 9D7763 


7700 

7720 


TYA 

STA OVRLAY,X 


655A 20^859 
6^5D 60 


7740 

7760 

7780 


JSR DRAW 
RTS 


; initial draw 


655E 


78 00 ; TABLE OF PROBABILITIES TO INIT TR UCKS 
7820 j PROB is x/255 per call to T INIT 
7840 TPROB 


7860 


655E 010,00000 
6£62 0000 

6564 05050500 78^0 


-BYTE 1,0,0,0,0,0 ; ROUND f 


656E 0000 


6570 00000505 792Q 

6574 0500 

6^76 00000005 7940 


657A 0505 


.BYTE 0,0,5,5,5,0 ; 
.BYTE 0, 0,0, 5,5,5 g 


7960 i Inijtial speeds for truck s 
7980 ~: ~ ‘ 


657£ 

657C ,07070707 
6580 0707 


300Cf TMAXSP 5 


tryck r m^x speed (AI\|Ded> 
7, 7, 7,7,7, 7 


6582 


6582 01010101 
6586 0101 


8 040 TMINSF 3 truc k min speed <ADDecO_ 

8060 ’ ' .BYTE 1, 1, 1 , 1, 1, 1 ' 


65Q8 


=0006 


808p 

8.100 TF'NDX *= *+l 
8120 NTYPES = 6 


8140 

8160 

8180 


3 numbe r of _ truck types 


COLLISION ROUTINE 

CHECKS FOR COLLISIONS BETWEEN 


8200 ; PLAYER’a VW P,ND ENEMY TRUCKS 
8220 3 

8240 3 Returns;_ 


8260 


8280 


8300 


c arry set and Xreq has index 
of tru ck col 1 i ded w ith , 


or 


6589 


8320 

8340 

8360 

; carry clear if no collision 

COLISN 








6589 

A200 

8380 

LDX 

#0BJMAX- 

-1 ; check all OBJtBL. entries 


- 


. 




658B 


8400 

COL110 
‘ LDA 



- 



658B 

BD1D63 

8420 

TYPE,X 

; find active entry 



658E 

3024 

8440 

BMI 

COLI40 

> 







1 * ~~ ' 

6590 

BD2F63 

8460 

L0A 

YPOS,X 

5 check Y 








<£393 

38 

8480 

SEC 










6594 

EDA742 

8500 

SBC 

BUGY 









6597 

BOO 5 

8520 

BCS 

COLI20 

3 find absolute difference 








6599 

49FF 

8540 

EOR 

#$FF 









659B 

IP 

8560 

CLC 









— 

&59C 

6901 

8580 

ADC 

#1 









659E 


8600 

COLI20 










659E 

C90E 

8620 

CMP 

#YCRSH 

; Y tolerance on collision 






__ - - 


65A0 

.BO 12 

8640 

BCS 

COLI40 

; no hit - branch 










8660 

5 




1 






65A2 

BD2663 

8680 

LDA 

XPOS,X 

; check X 








65A5 

38 

8700 

SEC 








■ 



















I 
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9 
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Q4 


9 

9 

9 

9 

•5 
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65A 6 EDA642 
65A9 BOOS 


65AB 49FF 
6 SAD 18 
65AE 6901 


8720 _ SBC BUGX 

8740 _BCS COLf30 


8760 

8780 

8800 


EOR #$FF 
CLC 
ADC #1 


6 5 B O 

65BO C90F 
65B2 9005 


8 §20 COL130 

8840~ CMP #XCRSH 


6$B4 
6SB4 CA 
65 B 5 10D4 


8860 


BCC COLI50 


8880 COLI40 

8^00 DEX 

8920 BPL COLI10 


X tolerance 

■found a. col 1 islon - branch 


next object 


65B7 18 
6 5B8 60 
65B9 


J3940 

8960 

8980 


_CLC 

Jf S 

COLI50 


no collisions 


65B9 38 


65BA 60 


9000 

9020 


SEC 

RTS 


; return with collided truck 
Xreg. 


index 

t 


l n 


9040 

.9060 

9080 


INIT PARAMS FOR NEXT ROUND 


5. 

9100 i 




9120 NEWRND 


, ;^5^B < ADC>340 

9140 

LDA 

ROUND 

65BE EE0340 

9160 

INC 

ROUND 

65C1 OA 

9180 

ASL 

A 

65C2 85D4 

9200 

STA 

R+0 

65m QA 

9220 

ASL 

A 

6.5JC5 18\ „ 

9240 

CLC 


65C& 165D4 

9260 

ADC 

R+0 

65C8 8D8865 

9280 

STA 

TPNDX 

| 65CB 60 

9300 

RTS 


! 

014520 

.INCLUDE #D2 

£ , 

0900 

-PAGE "SOUND 


inc roun d c tr 
TPNDX«R0UND#6 


O 

0 

















P AGE 5 5 
SOUND ’ 


URN DOWN 


for Atari s 1 


65CC, 

65 CG A928 
65CE 8D6E67 
65D1 A93F 
65D3 8D5667 
65D6 A966 
V 65D8 8D.5767 
65D& 60 

65DC 

65DC A928 
65DE 8D7067 
.65E.1 A94B 
65fe3; 8t>$867 


65E6 A966 
_65E8 8D5967 
65EB 60 
__ 

6 §EC. A9A8- 
'6 SEE 8D6A67' 


65F 1 A963 
65F3 18 D5 267 
65F6 A966 


1000 
102 0 
1040 
1060' 
1080 
1100 
4120 
1140 
1160 
1180 
1200 
1220 
1240 
1260 
1280 
1^500 
1320 
1340 
1360 
1380 
4.400 
1420 
4440 

1460 

1480 

1500 

. 152 . 0 ' 


1560 


1580 

1600 

1620 



5 SOUND.M65 


; UPN DOWN SOUND ROUTINES AND DATA 


j THE FOLLOWING ROUTINES INIT THE 

X VARIOUS SOUNDS 

« 

9 

ywjuMP 

LPA #$28 

_STA AUDV3_ _ 

LJDA # < SSTR1 
STA V0ICE3 

LPA ± irSSTRl __ 

STA VOICE3+1 
RTS 

■ 

TRKDIE ~ 

LDA #$28 

__ STA AUD V4 , __ 

LDA # <SSTR7 " T ” . 

STA V0ICE4 

__ LDA ¥ >SSTR 2 __ 

STA VQICE4+F 


VWDI.E- 

LDA' #$A8 
STA AUPVl 


LDA # <SSTR3 
STA VOICE1 
LDA # >SSTR3 


SJA. VOICE 1 + 1 
LDA #$A0. 

STA AUDV2 


6607 
660A 

8D.5567 

60 

1760 

1780 

1800 : 

660B 


1820 FLAG 

660B 

A9A8 

1840 

660D 

8D7067 

1860 

661.0 

A9C.7 

1880 

6612 

8D5867 

1900 

6615 

A966 

1920 

6617 

8D5967 

1940 

661A 

60 

1960 



1980 ; 


STA V0IGE2 


LDA # >SSTR32 


STA V0ICE2+1 
RTS 


LDA #$A 8 
STA AUDV4 


LDA # <SSTR4 
STA V0IC£4 
LDA # >SSTR4 


STA V0ICE4+1 
RTS 


66 IB 

66 IB 09010801 
66 IF 07010601 


2080 5 TRUCK DIE SOUND 
2100 SSTR2 

7120 .BYTE $09.1,$08.1.$07.1.$06.1 



Moore 














66 IF 07010601 
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sound; ' 


6623 


6627 


662B, 

<5>.62D 

6631 


6635 

6639 

663D 


663R 


663F 
6643 
6647 
664B 
664F 
-6653 


6657 

665B 

665F 


6663 


6663 

6667 

666B 

666 F 

6673 

667.7 

667B 

667F’ 

6683 


6687 

668 B 

668 F 

• 6693 

669 5 

6695 


6699 

669D 

66 A 1 

66A5 

66A9 

66 AD 

66B1 

66£5 

66B9 

66 BD 

66C1 

66C5 


05010401 


03010201 


QOO 1 

09010801 
■070 i 0601 


05010401 

0301020 1 

0000 


12011001 - 

0F010E01 

ODOIOCOI 


0B010A0.1 

,090l080f 

07010601 


05010401 
03010201 
O1000000 


3C0 4000 4 

500 40004 

2FD40004 

280^,0004.’ 

2K)4d0(54, 

2304000 4 

2804000 4 

2F040004 

3C040004 


3C040004 

4404000)4 

'5804000 4 

0000 

60050003 


600500Q3 

51050003 

48050005 

45050003 

48 050005 

51050005 

60050003 

7B050003 

7B050003 

7B050003 

7B050003 

0000 


2-160 
2.180 


2200 

2220 

'2240 

.2260 

2280 


2300 

2320 


2340 


2360 

2380~ 


2400 


2440 


2460 


2480: 


2500 


2520 


.BYTE $05,1,$04,1.$03,1,$02,1 




,BYTE 0,1 

.BYtE $09,.1, $08, t,$0 % 9 l,.$06„.i 


.BYTE $05,1,$04,1,$Q 5,1, $02,1 
.BY T E 0.0 _^_ 

5 

V.W JGMP SOUND 
SS-fRi 


jJBYJPL $12, 1,$ 10, 1, $0 F, 1, $0E, 1 
.BYTE $0D,1,$0C,1,$0B,1,$0A,1 


r . J&YtE $09, i , $0#,- X. 9 yQ7\ : X 9 iO‘6. 9 i 


.BYTE $05,1,$04, 1,$03,1 ,$02,1 
.BYTE 1,0,0,0 


| W DXE.-SOUND 
SSfR3 ; 


.JBYTEi^ 60,4,0,4,60,4,0,4,-47,4,0,4 


\ BYTE- 40,4 y 0 ,.4^33^4,0,4,35 ^4,0,4 


. BY TE'. 40,4,0, 4,47, 4,0, 4 ,60, 4,0,4 


-BYTE 60,4,0,4,68,4,0,4,60,4,0,4 


66C7 

66C7 30022C02 
66 CB 28022402 
66 CF 20021C02 
66D3 18021 4 02 
66D7 10020802 


2540 . BYTE 0,0 

2560 SSTR32 

2580 ~ .BYTE 96,5,0,3,96,5,0,3,81,5,0,3 


260 0 .BYTE 72,5,0,3,69,5,0,3,72,5,0 ,3 _ 


2620 -BYTE 81,5,0,3,96,5,0,3,123,5,0,3 


2640 _ . BYTE i23, 5, O, 5,125,5, 0, 5,. 125^ 5 ,0,3 


2660 .BYTE 0,0 ___ 

2680 ; - r- 

2700 ; FLAG SOUND 

2720 SSTR4 _ _ _ 

2740 .BYTE $30,2,$2C,2,$23,2,$24,2,$20,2, 


BYTE $18,2,$14,2,$10,2,$08,2 












w 


* 




* 


9 


I5| 




9 

<* 

i 


(* 

* 

£ 

t 


3 18021402 2760 


Tbyte $18,2,$14,2,$ 1 , 0 , 2 ,$08 .2 


6&D7 1002080: 

\ 7 
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mum 

-i 


D2:SOUND. I^« 


66 DB 0000 


2780 

2800 


-BYTE 0,0 


2820 

2840 

2860 


ROUTINE TO PLAY SOUND STRINGS 


2880 5 THERE ARE 4 VOICES AVAIL ABLE 
2900 ; UNLESS TWO ARE CONNECTED VIA 
2920 s AUDCTL. * 


2940 

2 ^ 6,0 

2980 


A £ 6 UND STRING HAS THE FORM: 

_ f rdq, in terva l , freq , interv al- 


0.0 


5000 ; INTE RVALS ARE _1 /60th SE CONDS, 
3020 ; A FR EQ OF 0 WI LL C AUSE~A REST 
3040 ; FOR THAT INTERVAL. 


3060 

308Q 

3100 


3120 

3140 
3160 


STRINGS MUST BE TERMINATED BY 0,0. 

TO S TART A STRING: 

LOAD AUDV1-4 WITH AUDC1-4 VALUE. _ 

SET V OICE1-4 TO POINT TO THE JSTRING. 
SINCE A NON-ZERO* IN THE HIGH 


3180. 

320*6 


BYTE WILL TRIGGER PLAYING LOAD THE 
LOW /BYTE FIRST (NOTE: STRINGS 
CANNOT BE ON ZERO PAGE). 


3240 

3260 

3280 


EXAMPLE: 


LDA #$A 8 


3300 

3320 

3340 


STA ; AUDV1 
llpA +KS5TRING 
STA V0ICE1 


-for pure tones 


■for 

low 


voi ce 
byte 


336 0 

3380 

3400 


LDA #j>j?STRING 
STA V0ICE1+1 


l byte 

l init playing 


A 200 


3420 

3440 

3460 


SFX 


L Px #b 


66 DF BD5367 


66E2 F010 


66E4 9D5B67 


3480 LP405 L DA V0ICE1+1,X ; check for new sound s tring pointer 

3500 _BE Q BR4 63 £ if zero then voice is not active 

3520 


66E7 BD5267 
66 EA 9DSA67 
66 ED A900 


3540 

3560 

3580 


STA VPTR1+1,X ; els e get new p ointer 


LDA V0ICE1,X 
STA VPTR1,X 
LDA #0 


66 EF 9D5367 


66F2 F014 


STA 

BEQ* 


66F4 BD5B67 


VO ICE 1 + 1, X 

J3R420 ; begin playing 


66F7 

66F9 

66 FC 


F008 

BD6267 

FOOA 


3600 
3620 

3640 BR463 LDA VPTR1+1,X ; get high byte of voice pointer 
3660 B.EQ BR419 ; O means voice not active 

3680 LDA VTIMR1,X ; check voice timer 

3700 BEQ BR420 : if zero then voice is available 


66 FE DE6267 


6701_ 
6702 


E8 


3 720 BR461 DEC VTIMR1,X j else decrement the timer_ 

3740 BR419 INX 5 increment index for next voice 


E8 


3760 


INX 


6703 

6705 

6707 


E008 

D0D8 

60 


3780 

3800 

3820 


CPX 

BNE 

RTS 


#8 

LF'405 


do for four voices 


6708 BD5A67 


3840 5 
3860 ]; 

3880 ; 

3900 BR420 LDA VPTR1.X 


Set pointer to sound string 


670B 85D4 


3920 


STA R+0 


t 2 4§ v 

#• 


<? 

in 






%■ 

t 

n 

r 

9 

* 

m 

* 

9 

9 

9 

9 

f> 

9 

9 


Moor* ButlneS**Forms, Ine. »v I412RH 



















t 

•i 

* 


l ?L 


6708 BD5A67 


3840 ; 

3860 ; 

3880 ; 

3900 BR420 LDA VPTR1,X 


Set pointer to sound string 


6708 85D4 


3920 


STA R+0 



V 
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4 

T 

2 

3 


’ SOUND.: 




4 

5 


670D T BD5B67* 

3940. 

LDA VPTR1+1,X 


6 


6710 85D5 

3960 

. STA R+l 


7 



3980 

• 

% 


8 



406.0 

V Pl'ky oe?xt- note 


9 



... 4020 

5 .1 . . i ► . T .. . 


10 


6712 A000 

4040 

.LDY #0 


11 


6714 B1D4. 

4060 

.LDA < R+0) , Y ; 

► 

12 


6716 P.003 

4080 

BNE BR457 ; 


13 


,67*18; 98 

’ 4 3 J 00 : 

TYA “ 

• 

U 


671.9. FOOEf. 

4 . 1:20 

J.EQ ;BF'4PS. j. 


15 


..671B 7 DO 5 D 2, 

4i46 

BR457 STA- .AUDF1, X ; 

* 

16 


67IE BD6B67 ' 

4160 

LDA AUDV1+1 ? X 

# 

17 


6721 D009 

4180 

BNE BR459 ; 


18 


6723 BD6A67 

4200 

LDA AUDV1,X 


19 


.672,6/ 9DQ ID 2j 

4220 

,BR4p8 STA, AUDC1, X 

?o 

* 

6729 9D6p67 

424.0 

STA AUDVl+i,'X 


21 


■&7Z£,M: . 

4260 

BR459 INY 


22 


672D pl.D4 

4280 

LDA (R+0),Y 5 

23 


672F DOOB 

4300 

BNE BR421 ; 


24 


;6731 9P01D2 

, 4320 

STA AUDCi t X 


25 


'67:34; f 9D5g67 

’ ',4340 

STA VPTR1+ L, -X 


26 


:67l7 9D6fer67 J 

4/36Q 

sta Aupyt+,1 ,.X: 


27 


<67$& 'F0C5 . , 

. 4380 

feEO .BR419 


28) 


673C 9D6267 

4400 

BR421 STA VTIMR1, 

' jafejb 

29l 

- W 


4420 

JL . 


30 



4440 

X Increment the : 


31 



' 4460 

*j y -. 

? . >- • 

# 

3*2 


673F FE5A67 

4485 

INC VPTRl , X 


33 


6732, T)00l; 

,, 4506 

BNE BR423 


34 


6744/ FE5B67 

4520 

INC VPTR1 + 1, X 

*• 

35 

, 

6747 FE5A67 

4540 

BR423 INC VPTR1,X 


36 


674A D003 

4560 

BNE BR424 


37 

X -v 

i 

' 6740, /FEpB67 

4580- 

* INC 0RTR1+1,X 


38 

• 

67'4‘F 

46,00 

BR424' CLC-: ' 


30 


6750/.90AC 

4620 

BCC BR461 


40 



4640 



41 

* 

~ r ~ 

4660 



42 


6752 

4680 

V0ICE1 *« *+0 


43 


675A 

4700. 

VPTR1 **;;•*+8 /. 

• 

44 

> 

.6762 

4720 

VTIMR1 ■_*& f+'S 


45 


676A, 

4740 

AUDV.l 


D2;SOUND 


: 0 means a rest 


.0 means currently resting 


jl 


=D20j. 
— 0200 
= 6754 
"=675i6 
=6758 
=6760 
=676E 
=6770 


=10208 

=D 20F 

=0232 


677: 


4760 

4780 

4800 

4820 

4840 

4860 

4830 

4900 

4920 

4940 

4960 

4980 

5000 

5020 

5040 

5060 

5080 


AUDC1' *J*D201 
AUDF1 -.rjiggoo 
VO I CE2ICE 1 +2 
VO I 

yo x 2 . 

A UDV2' ^^^i#V !-■»■>? 
AUDV3 * AyBy2+2 
AUDV4 V, A$D$X+2 


AUDCff 

SKC1& 



l 









6772 


5060 
5080 ISFX 


PAGE 59 UPN DOWN — -for Atari systems 


sqund 


6772 


4774 

4776 

6776 


6779 


677C 

677F 

4782' 

£783 


A207 


A900 

9D5267 


9D6267 


9D5A67 

9D6A67 

CA' 

iefci 


5100 5 
5120 


5140 

5160 ISFX 


5240 

5260 

5280 

5300 


LDX #7 


LDA #0 
10 

STA VOICEl, X 


STA VTIMR1, X 
STA VPTR1 ? X 
STA A UDV1, X 
DEX 

BPL ISFX10 



6 J8C 8.D0FD2 
67§F '§03202 
4792 60 


5380 
5400. 
^420 ' 


STA SKCTL 
STA SSKCTL 
RTS 




014540 

.INCLUDE #D2:SCROLL.M65 









1000 

.PAGE "SCROLL" 
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SCROLL 


1020 ; 



1040 

; SCROLL.M65 



1060 

; SCROLL ROUTIN 

•t 


1080 

V? 

6793 


1100 

SCROLL 

6793 

A900 

1120 

LDA #0 

6795 

8D135B 

1140 

STA SCRFLG 

6798 

’6?3B 

AD0A40 
lpOJ? ’ 

1160 
1180, 

LDA SCRSPD 
BPL SCBP08 

hi*? D 

49FF 

12dO' 

EOR #$.FF 

679F 

l£ 

1220 

, CLC 

67 AO 

6901 

1240 

ADC #1 

67A2 


1260 

SCR008 

67A2 

18 

1280 

CLC 

67A3 

6D0940 

1300 

'ADC SCRCTR 

67A6 

8dp940 

K^K 

/, 4tA GCRptR 

67A9 

9050 

1340. 

BCC SCR030 

67AB 

AD0A40 

1360 

LDA SCRSPD 

67AE 

8D135B 

1380 

STA SCRFLG 


flag n o scrol 1_ 
get scroll speed 
make positive 


A 208 

BD1D65 

5020 

BC2£6 ; 3 

ADdMo 

1004 

88 

4CC567 


<£>705 ;C060< , 
67C7 900B 
67C 9 200E 5A 
670C A9FF 
.67CE 9D*D63. 

* 4tS86Z 


67B5 

67B5 

67B6 

47B8. 

67&E 

67C0 

6701 

6704 

,,67C4 


67D4 98 
67D5 9D 2F65" 
67D8 
67D8 CA 
67D9 10D8 " 


67DB 

67D B 

67DE 

67E0 

67E2 

67 > E5 

67EA 

67ED 

67ED 


AD0BD4^ 

0964 

90F9 

AD0A40 

3006 

20FCS7 

4CF067 

204468 


if no carry 
fl a g scrol l 


no scroll 


1400 
1420 
M4P 
1460'; 
1480 
1500 
1520 
1540 
1560 
1580 
160 0 
1620 
1640 
>14^0 
L680 
i700 
1720 
1740 
1760 
1780 
1800 
1820 
1840 
1360 

Taao 

1900 
1920 
1940 
1960 
1980 
2000 
2020 
2040 
2060 
2080 
2100 
2120 
2140 
2160 


'% 'adVjus,t V of, objects 1 on s&V^ en 

~ Ldx Q&jwkf- 


; check obje ct _ 

; branch if not active 

; add or sub tract. 4 


: off screen 


cancel- 


SCR022 _ __ 

" LDA TYP E,X 
BMI SCR244 
LDY YFQS,X 
LDA SCRSPD 
BPL SCRQ25 

__ _DEY_ 

_JMP SCR Q24 

SCRQ25 _ 

I NY 

S£R024 

CPY #96 
___ BCC SCR2 42 
JSR ERASE 
LDA #-l 
STA TYPEj X ’’ 
JMP SCR244 
SCR2 42 _____ 

TYA __ 

STA YPOS, X__ 

SCR244 _ 

DEX 

BPL SCF$Q22 


JO?233 _ 

LD A VCQUNT_sync to screen 

CMP #IOC)'" _ 

BCC SCR233 ‘ * 

LDA SCRSPD „ ~ 

BMI SCR025fiy'Z'S 
JSR,UPSCRN ; scroll up 
JMP SCR027 . n 
SCR025 V 

_JSR DNSCRN \ scrol1 down 



Moor* 






4 

* 

# 

* 
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SCROLL 


P2rSCR0LL.M65 



67F0 


67F,0 

A902 

o 67F2 

85D9 

> 67F4 

A900 

67F6 

85DA 


i: 


2180. 

2200 

2220 

2240 

2^60 


add to score 


2280 

2300 

2320 


SCR027 

LDA #2 
STA R+5 
LDA #0 
STA R +6 




67FB 


67FB 60, 




■2340 

2360 

2380 

2400 

2420 

2440 

2460 

2480 

2500 


JSR AD DP1 


SCR030 

RTS 

.5. 




81 
91 

lio) 

H# 

'4 

- • 

si 

l«! , 

. # 

ifl 


Scrolling is a'ccompl i shed by writing the new, 
line to be scrolled in over the 


2520 

2540 

2560 


JL 1 ine abo ut to be scrolled out and changing 
j the display list._ * 


25 


80 5 

2600 ; SCROLL THE DISPLAY WINDOW .UP 


• 

28 

29 

30 

67FC 
[ 67FC 

r 67FC CE0B40 

2640 

2652 

2660 

UPSCRN 
UPSCR1 
DEC 

SCROLF ; dec pointer to 1st playfii 

! 

pi 

67FF 1024 

2.680 


BF'L 

UPSC10 5 check underflow 


6801' B9PF 

2700 


Lda 

1115 reset fine 


33l 

1 ‘ 68 :<S3‘ 8D0B40 

2720 


STA 

SCROLF 


34 

6806 A5CA 

2740 


LDA 

SCROLC 5 - dec coarse 


35 

6808" 38 

2760 


SEC 



36 

680.9 E90A 

2780 


SBC 

#10 ; 10 chars/row 


37 

680B 85CA 

2800 


STA 

SCROLC 


33 

680D A5QB 

'282.0 


LDA 

SCRQLC+1 


39 

680F E900 

2840 


SBC 

#0 


40 

6811 85CB 

2860 


STA 

SCROLC+1 


41 

6813 C943 

2880 


CMP 

# >&PFDATA-10u ; check underflow 


12 

6815 D00E 

2900 


BNE 

UPSC10 


43 

6817 A5CA 

2920 


LDA 

.SCROLC 

W 

44 

6819 C9AA 

,2940. 


CMP 

# <APFDATA—10U 


45 

68 IB D06’8 

2960 


BNE 

UPSC10 


40 

1 681D A916 

2980 


LDA 

# <ttPFDATA+F'FLEN— 1 Ou j_ reset SCROLC 


47 

681F 85CA 

3000 


STA 

SCROLC 


4e ; 

6821 A946 

3020 


LDA 

# >APFDATA+PFLEN—1Ou 


49 

6823 85CB 

3040 


STA 

SCROLC+1 


sot 

3060 

* 

? 




si; 

1 . 

3080 

n 

Update DSCROL (new top line) 


5 


3100 

5 




5b 

1 6825 

3120 

UPSC10 



54 

1 6825 CE0840 

3140 


DEC 

DSCROL !} dec index to SMEM first 1 


55 

i 6828 .1005 

3160 


BF’L 

UPSC15 ; branch if nb underflow 


56 

682A A96F 

3180 


LDA 

#111 ; else reset to bottom 



, 682C 8D0840 

3200 


STA 

DSCROL , _ ___ 




3220 

s 



• 



3240 

•i 

Set pointer to new line destination 


- 


3260 

5 

which 

is the new top line. 




3280 

5 


— - - - 

•l 

* 

6S2F 

3300 

UF’SCl 5 



2 t . 

WW 

24 

p m 

27) 

2fl l _ 

29( #*> 
3C| 

3 », 

b*l 

:.<• 

tI 


- -H 


<5 i 

wl 

4fii 
19 

50 

51 

52 

53 

54 

55 




_ 


ititolH '««- Qj •iooyi 
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4460 


LDA SCROLC+1 
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E902 

4480 


SBC 

# >PFLEN 


85CB 

4500 


STA 

SCROLC+1 

6Q7& 


4520 

DNSC02 


6S7D 

,208868 

4540 


JSR 

F'FLINE ; write the line 



4560 

5 



6830 

68 

4580 


PLA 

; restore SCROL 

6881 

85CB 

4600 


STA 

SCROLC+1 

6883 

68 

4620 


PLA 


6884 


4640 


STA 

SCROLC 



4^60 

ft 

9 





4680 

« 

Set SCROL ptrs to next line 



4700 

9 



6886 

AE0B40 

4720 


LDX 

SCROLF ; tine scrol1 

6889 

E8 

4740 


INX 


688 A 

PEQB40 

4760 


STX 

SCROLF 

688 D 

E010 

4780 


CPX 

#16 

6 d8F* 

D024 

*4800 


BNE 

DNSC10 

6891 

A900 



LDA 

#0 

6893 

8D0B40 



STA 

SCROLF ; reset 

6896 

A5CA 

4860 


LDA 

SCROLC ; inc coarse 

6898 

18 ' 

4880 


CL£ 

* 

! 6899 6?QA, 

4900 


ADC 

#10 

689B 

85 C A 

HHEEeEX 


V STA 

SCROLC 

689D 

A5CB 

4940 


LDA 

SCROLC+1 

689F 

6900 

4960 


ADC 

#0 

68 A1 

85CB 

4980 


STA 

SCROLC+1 

68A3 

C946 

500QC 


# >&PFDAT A+PFLENu ; check over -flow 

6SAJ5 DbOE 

srJgcr 

/ 

we 

DNSC10 

6SA7 

A5CA 

5040 


£t)h 

SCROLC 

68A9 

C920 

5060 


CMP 

# < &PFDAT A+PFLENu 

68 AB 

D008 

5080 


BNE 

DNSCIO 

68 AD 

A9B4 

5100 


LDA 

# <PFDATA ; reset 

? - * 68AF 

85QA 

5120 


,PTA 

SCROLC 

> 6&B1 

A9%3 

5140 


L0A 

M" >pfdata 

" , 68B3 

,S5CB 

5160 


StA 

S'CROLCti 

68B5 


5180 

DNSC10 




5200 

* 

> 





5220 

ft 

* 

Update DSCROL (new top line) 



5240 

• 

5 

the old top line now becomes 



5260 

ft 

9 

the new bottom line- 

y 


5280 

ft 



6SB5 

EE0840 

5300 


INC 

DSCROL ; inc index to SMEM -first line? 

68 B8 

AD0840 

5320 


LDA 

DSCROL ; check for overflow 

68 BB 

C970 

5340 


CMP 

#112 

68 BD 

D005 

5360 


BNE 

DNSC15 

68 Bf^ 

A 900 

5380 


LDA 

#0 ; reset to top 

68C1 

800840 

5400 


§TA 

DSCROL 

68C4 


5420 

DNSC15 




5440 

5 



68C4 

20E352 

5460 


JSR 

CHGDSP q oove the display list pointers 

68C7 

60 

5480 


RTS 





« 

5 





5520 

; 





5540 






5560 

5 





5580 

<1 

Write 

the playfield line indicated 



5600 


by SCROLC,SCROLF to the SMEM 



5620 


1ocation <R+0 P R+l>. 


>* 4v 
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5600 

5620 


; by SCROLC,SCRQLF to the SMEM 
; location (R+0., R+l >. 
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sCRffcL / * ’ r ' 

* **!& * 

* ■& 




5640 





6BCS 


5660 

PFLINE 



6aqa 

8 4 

5680 


TXA 


save regs 

68C£t 

148 

' ,5700 


PHA 



68CA 

‘98 

5720 


TYA 



68CB 

48 

5740 


PHA 




A5D4 

5760 


LDA 

R+0 



48 

5780 


PHA 



■mmw& 351 

A5D5 


■ 


.R+l 


sllllll|fc ill 

:48 

piijfcfe il 




* 


''A 000 

iwS !fS 


TdV 

#0 .. 5 

index to chars in PF li 

68D4 


5860 

PFLI10 



68D4 

98 

5880 


TYA 



68D5 

48 

5900 


PHA 

■ 

fl 

save char index 

68D6 

B1CA 

, 5920 


LDA 

(SCROklC) , 

Y 

iSDS' 

* 

' ■ ; 594Q 


fAx 



&8D9 

’BD0A42 

596*0 


LDA 

CHARH,X 


68DC 

85D7 

5980 


STA 

R+3 


68DE 

BD4A42 

6000 


LDA 

CHARL,X 


68E1 

AE0B40 

6020 


LDX 

SCROLF 


6S£4 

18*,. 

6040 


CLC 


* 

,68§a 

H)tA4t, 

Ip^T 


Abt 

*ft4TBL, X 


6*8 E 8 ’ 


a # 6080 


STA 

R+2 


6 SEA 

A003 

6100 


LDY 

#3 5 

write 4 bytes/char row 

68EC 


6120 

PFLI20 



68EC 

B1D6 

6140 


LDA 

(R+2>,Y ; 

qet char data 

68EE 

91D 4 

6*60 


STA 

:(R+0) v , Y 5 

write to “screen 

i&o 

*88 r 

*.* 6180 


DEY 



, 68F1 

1C#9 

6200 


BPL 

PFLI20 


68F3 

A5D4 

6220 


LDA 

R+0 ; 

update screen pointer 

68F5 

18 

6240 


CLC 



68F6 

6904 

6260 


ADC 

#4 


68F8 

85D4 

6280 


STA 

R+b 


68FA ,A5t>3‘ 

6300 


LDA 

R+l 


68^0 

6900; 

6320 


ADD 

#0 


68FE 

85D5 

6340 


STA 

R+l 


6900 

68 

6360 


PLA 


restore char counter 

6901 

A8 

6380 


TAY 



6902 

C8 

6400 


INY 



6903 

COO A 

„ 6420 


CPY 

#10 


,6905 

DOCD . 

6440 


BNE 

PFLI10 ; 

do next char 

6907 

68 

6460 


PLA 



6908 

85D5 

6480 


STA 

R+l 


690A 

68 

6500 


PLA 


. 

690B 

85D4 

6520 


STA 

R+0 


6<?0D 

68 

6540 


PL'A 



;&90E 

As 

6560 


TAY 



690F 

68 

6580 


PLA 



6910 

AA 

6600 


TAX 



6911 

60 

6620 


RtS 





014560 

.INCLUDE #D2: 

DATEXP.M65 



1000 


.PAGE "DATEXP 

II 


D2sSCROLL,M65 
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DATE XI? 


[- 

— 

- _ 

1020 

1040 

*l 

DATEXP.M65 

DATA EXPANSION ROUTINE 


■ 



mM 

ROUTINE EXPANDS TRUCK DATA 




. 1120 

n 

INTO RAM. TRUCK TYPES TO EXPAND 




1140 

H 

ARE PASSED IN TYPREF,TYPREF+1,... 




1160 

a 

(# TYPES ALLOWED IS "NACTYPE") 




1180 

5 


1* ‘A 



.. i 200 

■ 

fl 

OBJECT DATA AND MASKS ARE THEN 




1220 

n 

5 

ACCESS&D THROUGH OBJDAT AND QBJMSK 


1240 ; WHICH A RE S TRUCTURED AS FOLLOWS: 


1260 ; ___ _ 

1280 ; TYPE=nl DIR=0 shiftO, shift!, shift2, shift-3 

1300 ; pIR=l shiftO, shiftl, shift2, shif£3 

1320 ; DIR=3 shiftO, shjftl, shift2, sh,i/t3 

1340 ; _ DIR-4 shiftO, sh iftl, sh if t2, shifts 

1360 ; TYPE =n2 DIR=0 shi-ftO, ~- __ ‘ _ 

1380 ;_ DIR=1_7.^..^_ __ 

1382 ; _’_ . ~ _ 


Jl 390 ; NoteV Dir 2,5 not used .for trucks' 
JL400 ? 

691 % _„ 1*426 DATEXP . _ 


6912 

6914 

6916 

A 900 

A200 _ 

1440 

LDA 

#0 ; 

zero OBJREF 



1460 LDX 

1480 DATE05 

OBJ MAX -1 

-- 

— 

- - 

v 6916 

9DQ769 

J. 500 

STA 

OBJREFjrX 



* 

&919 

CA 

1520 

DEX 





691A 

iOFA 

1540 

BPL 

DATE05 






1560 3 






691C 

A200 

1580 

LDX 

#0 ; 

init index to TYPREF 



69 IE 

86DC 

1600 

STX 

R+8 




,692p 


1620 DATE10 





6920 

J3CC569 

1640 

LDY 

TYPREF,X ; 

set ptr to picture pair 



6923f 

B9C969 

1660 

LDA 

PPL, Y 




6926 

85D4 

1680 

STA 

R+0 




6928 

B9D569 

1700 

LDA 

PPH, Y 




692B 

85D5 

1720 

STA 

R+l 






1740 s 





■X 

69^D 

A900 

1760 

LDA 

#0 




692F 

85E3 

1780 

STA 

R+l 5 3 

set fill value for shift* 

routine 



1800 ; 






6931 


1820 DATE15 





6931 

BDE169 

1840 

LDA 

DXPTR1L,X 

; set R+2,3 to data area 

for 

shifts 

6934 

85D6 

18£0 * 

STA 

R+2 




6936 

BDE569 

1880 

LDA 

DXPTR1H,X 

* 



6939 

85D7 

1900 

STA 

R+3 






1920 ; 






693B 

BDE969 

1940 

LDA 

DXPTR2L,X 

; set R+6,7 to data area 

for 

ref 1ection 

693E 

85DA 

1960 

STA 

R+6 




6940 

BDED69 

1980 

LDA 

DXPTR2H,X 




6943 

*85 DB 

2000 

STA 

R+7 






2020 3 






6945 

8A 

2040 

TXA 

? 

save Xreg. 



6946 

48 

2060 

PHA 





6947 

OA 

2080 

ASL 

A ; 

set ptr to master obj in. 

OBJDAT/QBJMSK 

6948 

OA 

2100 

ASL 

A 




6949 

OA 

2120 

ASL 

A 

































6948 OA 

6949 OA 


5100 

2120 


ASL A 
ASL A 
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694A OA 

694B OA _ 

694C AA 
694D, A5D4 
694'F 9DF169 
6952 A5D5 
6954 9DF269 


6957 

69,5A 

695C 


695D 


695F- 


6961 


6963 

6965 

6965 

6967 

6969 

696B 


.20716A 
A5.D4 
18 


6950 


85D4 


9002 


E6D5 


2140 
2160 
2180 
2200 
2220 
2240 
2J260 
2280 
2300 
2320 


4 


ASL A 

ASL A __ 

TAX 

LDA R+0 

STA OBJDAT,X _ 

LDA R+l 

STA QBJ DAT +1,X 


A5D6 

85DA 

&5D7 

8 SDB 


696D 

696F 

6970 

6972 

6974 

6976 

6978 


A5D6 

58 

E930~ 

85D6 

A5D7 

£902. 

85D7 


6 

8 

0 


2420 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 


JSR SHAPEX 
LDA R+0 
CLC 


ADC #80 
STA R+0 
BCC DATE20 


INC R+l 
DATE20 

LDA R+2 
STA R+6 
LDA R+3 
STA R+7 


; expand 1st shape 
3 set ptr to 2n,d shape 



697A _20716A 
697D 68 
697E 48 






?45'2 

. 2453' 

2460 

2480 

2500 


LDA R+2 
SEC 

£>BC # <560 
STA R+2 
LDA R+5 
SBC # >560, 
STA R+3" 


JSR S HAP EX i expand -2nd shape 
PLA ; recover Xreg 

PHA 





6,985 A5D4 
6987 9DF969 
698A A 5D5 
698C 9DFA69 
698F 68 
6990 AA 


699,1 

6995 

6995 

6998 




6?9D 
69AP 
6 9 A? 
69A3 
69A4 
69A6 
69A8 
69AB 


E002 
BO 16 
BCC569 
B9CF69 
85D4 


B9DB69 

85D5, 

E8 

E8 

A9FF 

83E3 

4C3169 


2640 

•'2660 

2680 

2700 

2720 

2740 

'2760 

2780 

2800 

2820 

2840 

2860 


2880 

2900 

2920 

2940 

2960 

2980 

3000 

3020 


LDA R+0 

STA QBJ£>AT+S ! ,X 

LDA R+l_ _ 

STA 6\jDAT+9 ? X 

PLA 

TAX 


CPX #2. 

BCS DAT E30 
LDY TYPREF, 


already do masks? 

y es - branch__ 

else setup ptr to mask 


LDA PPL+6j Y 


STA R+0 


LDA PPH+6-j, Y 
STA R+l 


I NX' 

I NX 

LDA #$FF 


•fill value -for masks 


STA .R+l5 
JMP DATE15 


do masks 


DATE30 
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69AB JA6DC 
69AD BEC569 


,6980, 8 a 

6 $m oh * * 

6 9B2 0A 
6 9B5 OA 

69B4 OA _~ 

69B5 OA 


69B£ 9&C769 


69B9 E6D C 
69BB A6D C 
69BD E002 


69BF FOG3 
69C1 4C2069 
69C4 


69C4_60 
69 C 5 


=0002 

69C7 

-2E80 
=3740 
~69C8 FF 


69C9 
69C9 
69CC 
69CF 
" 69D2 


69D5 

69D5 

,69D8 


69DB 

69DE 

69E1 


69E1 
69E3 
69E5 


69E 5 

_69E7 

69E9 

69E9 

69EB 

69ED 

69E D 

69EF 


D F1F1F 

1F1F1F 

7F1F1F_ 

1F1F1F 


6 B6D,6tf 

6 D6D6D 


6 C6 D6D 

6 D6 D6D 


40 AO 
80E0 

373B __ 
2E32 ___ 

2080 

6'0C0 

393D 

3034 


69F1 

69F1 0000 
69F3 4037 
69F5 9037 
69F7 E037 
69F9 0000 
69FB 3038 


3030_ 

3040 


3060 

5080 

3100 

3120 

3140 

3160 

3180 

3200 

3220 

3240 

5260 

3280 

3300 

3520 

3340 


J3360 

3380 

3400 


'3420 

3440 

3440 - 

3480 

3500 

3520 


LDX R+8 

LDY TYPREF,X ; set OBJREF entr' 
TXA 

ASL A ; #32 

ASL £___ 

ASL A 
ASL _A 
ASL A “ 


STA OBJREF,X 


# o-f active ob iect t- 


_INC R+8 

_LDX” R+8 

CPX frNACTYPE 
BEQ DATE40 
CTMP DATE 10 
DATE40 


RTS 


TYPREF *= *+2 _ ~ 

NACTYPE = 2 ; # active v objetts 

OBJREF '#= r+gRJMAX 

MASKX = $2£80 ; size = 2^40 bytes 

DATAX = $3740_?_size= 2240 _= $8c0 

FFBYTE - BYTE $FF 


= $ 8 c 0 


3^60 
55§t>, 
5600 
5620 ~ 
3640 


3660 


3700 


572 0 

5740 

3760 


3780 

3800 

5820 

5840 

3860 

5880 

3900 

3920 

5940 

5 960 

3980_ 

■4000 

4020 

4040 

4060 


4080 


__ .BYTE 

- -J^TE 
__ .byte 

BYTE 


PPK ■ 

. B^TE 
i BYTE 


.BYTE 

1_ .BY TE 

DXPTR1L 


. BYTE 
-BYTE 
DXPTR1H 

_ .BYT E 

__ -BYTE 

DXPTR2L 


.BYTE 

.§YTE 

DXPTR2H 

.BYTE 

.BYTE 


<TRUCK, CSWEEP R. <FLGCAR ; data 
_<FLGCAR, < FJ-GCAR, <FLGCAR 

<SWEEPRM, <FLGCARM ; ffl ask_ 
<FLGCARM, < FLGCARM, <FLGCARh' 

STRUCK, >SWEEPR, >FLGCAR ; da€a 
">FLGCAR , >FLGCAR, >FLGCAR 
_>TRUCKM, >SWEEPRM,‘ >FLGCARM ; mas k 
>FLGCARM, >FLGCARM,_ >FLGCARM_ 

Tdatax, <DATAX+1120 
CrtASKX, <MASKX+1120 

^•dat axT >DATAX+iT20_ _ ~ “ ” 

>mash;x, >mask x‘+1120 


„< DATAX+480, <DATAX+1600 
<fcASKX+430V <MASKX +1600 

_>DATAX+480, J>DATAX +1600_ J 
>MASKX+480, >MASK X +1600 


OBJDAT 

■WQPP O,DATAX,DATAX+80.DATAX+160 


.WORD O,DATAX+240.DATAX+520.DATAX+400 



Moor# Buslnest Form*, Ine. 









rl • 


4080 


■ WORD O.DATAX+24Q,DATAX + 52Q,DATAX+400 


4 


0 

0 

0 

0 


s~ 

69FB 3038 
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Si 

* 


* 
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4 


5 

69FD 8038 





6 

69FF D038 





7 

6API 2039 

4100 


.WORD 

DATAX+480^DATAX+560,DATAX+640,DATAX+720 

e 

6AO3 >039 




ft 

9 

6A05 C039 

, 




10 

6AO7 103A 

11 

6A09 603A 

4120 


-WORD 

DATAX+800,DATAX+880,DATAX+960,DATAX+1040 

12 

6A0B B03A 





13 


.. * % 




14 






15 


** .4140 




16 

6A11 0000 

4160 


. WORD 

0,DATAX+l120,DATAX+1200,DATAX+1280 

17 

6A13 A03B 





18 

6A15 F03B 





19 

* 6A17 403D * 





20 

" OOOQ 

4180 


. WORD 

0,DATAX+1360,DATAX+1440,DATAX+1520 

2) 

6A1B 903C 



s'* 


22 

6A1D E03C 




• .* * 

23 

6A1F 303D 





24 

6A21 803D 

4200 


. WORD 

DATAX+l600,DATAX+1680,DATAX+l760,DATAX+1840 

25 

V 6A23 0Q3D 





26 

l J :Zm 203^ 





27 

,.&6A27.703E 





28 

6A29 COSE 

4220 


.WORD 

DATAX+1920,DATAX+2000,DATAX+2080,DATAX+2160 

29 

6A2B 103F 





3C 

6A2D 603F 





31 

. B03F 



* 


32 


4240 

5 



33 

s'’ $ 

4265 

• 



34 

6A31 

4280 

OBJMSK 


35 

6A31 0000 

4300 


-WORD 

0,MASKX , MASKX+80 , MA5KX+160 _ _ _ 

36 

6A33 802E 





37 

6A35 D02E 

* 




38 

6A37 202F 





39 

6A39 0000 

4320 


.WORD 

6, MASKX+240,MASKX+320,MASKX+400 

40 

6A3B 702F 





41 

6A3D C02F 





42 

6ASF 1030 





43 

6A41 6030 

4340 


.WORD 

MASKX+480 , MASKX+560 , MASKX+640 , MASKX+720 

44 

6A43 B030 





45 

6A45 0031 





46 

6A47 5031 





47 

6A49 AOS1 

4360 


. WORD 

MASKX+800,MASKX+880,MASKX+960,MASKX+1040 

48 

6A4B F031 





49 

6A4D 4032 





50 

6A4F 9032, 





51 


43&0 




52 

6A51 0000 

4400 


. WORD 

0,MASKX+l120,MASKX+1200,MASKX+1280 

53 

6A53 E032 





54 

6A55 3033 





>5 

6A57 8033 





56 

6A59 0000 

4420 


. WORD 

0 , MASK X +1360 , MASKX +1440 , MASKX + 1520 


6A5B D03S 




... ■ ■ ■ 


0 

0 


0 

0 


0 

0 


0 

0 

0 


0 

* 

0 

* 

0 

0 




6A5D 2034 
6A5F 7034 
6A61 C034 
6A63 1035 




0 


0 


4440 


WORD MASKX + l600,MASKX+1680,MASKX +1760,MASK X+i840 


•Aid 


6A65 6035 



Moor* Business Forms, Inc. »v 1412RH 



6A65 1055 
6A65 6035 
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6A67 B035 
6A69 0036 


4460 


JL WORD_,MASKX +1920, MASKX+200 0, MASKX +2080, MASKX+2160 


6 A6B 5036 
6^69* AO36 
6 A6F F036 


4480 

4500 

4520 


EXPAND THE SHAPE POINTED TO BY 




* 


; R+0,1. R+2,3 POINTS; TO SHIFT EXPANSION 
; AREA, 6+6,7 POINTS TO REFLECTION 


4540 
4560 

45 80 ; EXPANSION AREA . 


6A71 __ 

6A71 A5D4 


4600^ g_ 

4620 SHAPEX 


4640 


LDA R+0 


preserve R+0, 1 


6A73 48 
6ft74 $5D5 
6A76 48 


4660 

4680 

4700 


PHA 

LDA R+l 
PHA 


6 A77 A901 
6A79 85ED 


4720 

4740 ~ 

4760 


LDA #1 
STA R+25 


set flacj to do shifts t wice 


6A7B 20FD6£U 
6A7E 


4780 
4800 5 
4820 SHAP05 


JSR REFLECT ; reflect the master image 


6A7E A903 
6A80 85PD 
6A82 


4840 


4860 
4880 SHAPIO 


LDA #3 
STA R+9 


da 3 shifts of master 


6A82 20BD6A 


6A85 A5D6 


4900 

4920 

4940 


JSR SHIFT 


LDA R+2 


6A87 85D4 


6A89 A5D7 


6 A8B 85D' 


4960 

4980 

5000 


SJA R+0 
LDA R+3 
STA R+l 


6 A8p A5D6 
6 A8F 18 


5020 

5040 

5060 


LDA R+2 
CLC 


6A90 6950 
6A92~85D6 
6A94 '9002 


5080 

5100 

5120 


ADC #80 
STA_ R+2 
BCC SHAP30 


6A96 E6D7 
6A98 


5140 
51^0 5 
5180 SHAP30 


INC R+3 


6A98 C6DD 


6A9A D0E6 


520 0 

522 0 

5240 


DEC^ R+9 
BNE SHAPIO 


6A9C C£ED 
•6A9E 53016. 
6AA0 A5DB 


5260 

5280 


DEC R+25 
BMI SHAP40 
LDA R+7 


g see if 2nd time through 
; yes - exit 


_els e set ptrs for shifting* reflected 


-6AA2 _85D5 
6AA4 A5DA 


5320 

5340 


STA R+l 
LDA R+6 


image 


6 AA6 85D4 
6 AA8 18 
6 AA6 6950 


*5360 

5.380 

5400 


6 AAB 85D6 
6 AAD A5D5 
6 AAF 6900 
6AB1 85D7 


5420 

5440 

5460 

5480 


6AB3 4C7E6A 


5500 


STA R+0 
CLC 

ADC #80 
STA R+2 
LDA R+l 
ADC #0 
STA R+3 
JMP SHAPOS 


















6AAF> &<?CO 
6AB1 85D7 
6AB3 4C7E6A 


5 4<bO 
5480 
5500 


.ADC #,C 

5TA R+3 
JMP SHAP05 
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A 

2 

3 

PAJEXP 
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4 

5 

6 

6 AB 6 

5520 

5540 

a 

!• 

SHAP40 

- 


7 

„ 6 AB 6 68 

5560 


PLA 



8 

6AB7 8$D5 

5580 


STA R+l 



9 

, &AB9* 68 

5600 


PLA 



10 

6 ABA 85D4 

5620 


STA R+0 



3 

6 ABC 60 

5640 


RTS 



12 


5660 

a 




13 


5680 

■ 

> 


• 


14 


5700 

a 

!» 

SHIFT DATA 1 PIXEL TO THE RIGHT 

■-* » 

IS 


5720 

a 

SOURCE IS R+0,1 

DESTINATION IS R+2,3 


16 


5740 

a 

3 

Fill byte is in 

R+15 (value shifted 


17 


5760 

a 

? 

in from left). 



18 


5780 

a 

*» 




19 

6 ABD 

5800 

SHIFT 


t y 

20 

6 ABP A^)3 

H&2Q' 


LDA #3 


4 

21 

6 ABF S5D9 

*5840 


STA R+5 


4 

22 

6AC1 

5860 

SHIF10 


4 

23 

6AC1 A00 6 

5880 


LDY #0 


t 

24 

6 AC 3 

5900 

SHIF15 


i 

2S 

6AC3 A2Q0 

v 5920 


LDX #0 5 

copy now to registers 

j 

26 

6AC5 

51940 

SHIF20 


, j 

27 

6 AC5 B1D4* , 

5960 


LDA <R+d>,Y 


f 

281 

6AC7 95DE 

5980 


STA R+10,X 



29l 




I NY 



3C 

6 ACA E 8 

6020 


INX 



31 


* \ 


5F*)£ #5 


£ >. 


„ 6 ACD DOF 6 ' 

" *** Z%&&0 


BN£ SHI F2d. 


* 

33 

**, J 6 ACF ¥i5E3 

« “ 7 1)080 


LDA *R+i5 * 


g ** 

U 


6100 

.1 




3S 

6 ADI 6 A 

6120 


ROR A 



36 

6AD2 66 DE 

6140 


ROR R+10 ; 

shift row right by 1 pixel 


37 

..... 6AD4,„,64PF 

6 .I 6 O 


ROR ,R+11 * 


j. * 

36 

* 

. .6130 


RdR R +12 


jfW 

31 

6 AD 8 66 fei 

“ ^ “ 6*266 


ROR R+i3 



<0 

6 ADA 66E2 

6220 


ROR R+14 



41 

6 ADC 6 A 

6240 


ROR A 



12 

6 ADD 66 DE 

6260 


ROR R+10 



43 

6 ADF 66 DF 

6280 


ROR R+l1 


• v 

44 

£a£1 66E5 



ROR R+l2 


' 

45 

, 6A&3 66E1 

6320 


ROR R+l3 


A 

46 

6AE5 66E2 

6340 


ROR R+14 



47 


6360 

a 

9 




m 

■ 

6AE7 98 

6380 


TYA ; 

rewrite registers to dest. 

row 

s 

6 AE 8 38 

6400 


SEC ' 



5 

6AE9 E905 

6420 


SBC #5 * 



51 

6 AEB AS 

6440 


TAY 



52 


6460 

JL 




53 

6 AEC A200 

6480 


LDX #0 



54 

6 AEE 

6500 

SHIF30 



55 

6 AEE B5DE 

6520 


LDA R+10,X 



56 

6AF0 91D6 

6540 


ST A (R+ 2 ) ;V 



k 

6AF2 C 8 

6560 


I NY 




6AF3 E 8 

6580 


INX 




6AF4 ECO5 

6600 


CPX #5 




6 AF 6 , D0F6 

6620 


BNE SHIF30 


\ 



6640 





r 

6 AF 8 COSO 

6660 


CPY #80 ; 

do for 80 bytes <16 rows) 
































PAGE 71 
DATEXP 


UPN DOWN — f or Atari sy s tems _ 


D2:^DAJEXR. M^f 


6 AFA D0C7 


6 AFC 60 


6680 

6700 

6720 

6740 

6760 

67-80 

6782 

6784 


BNE SHIF15 


_ 


RTS 


X. REFLECT DATA_ AT R+OjJL TO R+6^7 
X LAST COLUMN OF BYTES IS NOT 
: REFLECTED 


60FD' 

6 AFD A04F 


6800, 

6820 

6840 


REFLECT 

L'DV #79 


refl ect 80 bytes 


6 AFF 

6 AFF A900 
6B01 85D8 

6B6'S '8 ID4 


6860 REFL10 
6880 LDA #0 

6900 STA R+4 


6920 

6940 

6960' 

6980 

7000 

7020 


LDA (R+0), Y ; ge?t byte tp reflect 


Pixel bits must be switc hed if 
J. dif ferent since ROL wi 11_ switch 
: them otherwise 


6 BO,5 
6Bd7 


A 204 


7040 

7060 

7080. 


UDX #4 
REFL20 


; reflect 4;-. p i $ £ / by f. e. 


6B07 

6B09 

6B0B 


85EC^ 
24 EC 

Yobs' 


7100 __ STA R+24 _ __ 

*7120 BIT R+24 i set N,V flags 

7-140 BPL , REFlY 0 T are pixel bits the same? 


6 BOD 
6B0F 
6 B 12 


7P0.7 

4C146§' 


5002 


6B12_ 

6B14 __ 

6B14 49C0 


7160 -BVS REFL50 

7i80 : JM.P REFL40 

,7200 REFL30 
7220 BVC REFL50 


7240 RE FL40 
7260 EOR #$C0 


; need to reverse pixel 


W:X£. 

6Bi.6 

6B17 


PA 

66 D8 


6B19_ 

6 B 1 A 

6B1C 


OA 

66 D 8 
CA " 


7280 REFL50 
7.360 ASL A 

7320 _ _ROR R+4 

7340 ASL A 

7360 RQR R+4 

7380- DEX 



6 BID DOES. 

6B1F 98- 

7400 ' 
7420 ; 
7440 

-BNE 

TYA 

REFL20' 

- - 

6B20,48 

6B21 B92F6B 

7460 

7480 

PH A 
LDA 

RFLPAT,Y 

6B24 A8 

7500 

TAY 




' 7520 l 




6B25 A5D8, 

7540 

LDA 

R-+4 


6B27. ‘91 DA 

7560 

STA 

(R+6)„ Y 



7580 j_ 




6B29 68 

7600 

PLA 



6B2A A8 

7620 

TAY 



6B2B 88 

7640 

DEY 



6B2C 10D1 

7660 

BPL 

REFL10 



7680 ; 




6B2E 60 

7700 

RTS 



6B2F 


7720 

7740 

7760 


; Reflected byte pattern 
RFLPAT 


6B2F 03020100 


8081 


- BYTE 3,2,1,O, 4 


PAGE 72 UPN DOWN - for Atari systems __ 

DATEXP D2:DATEXP.M65 









76BQ S_ _n 

6B2E 60 7700 RTS 

7720 ; 

7740 ; Reflected byte pattern _jL 

6B2F _ 7760 RFLPAT __ 

6B2F 030201.00 8081 .BYTE 3,2, 1,0,4 


PAGE 72_URN DOWN - for At&ri systems 


DATEXP- 


4>2‘s PATEXP.M65 


61333 04 


■ 

6B34 08070605 

8082 

. BYTE 

8,7,6,5,9 



6B38, .69 
.6g$9 OPOQ6B6A. 
6&3D. 6E . ,, 

.3083. 

./BYTE' 




6B3E 121 HOOF 

,8084 

. BYTE 

18,17,16,15,19 

‘ 


6B42 13 

6B43 17161514 

3085 

.BYTE 

23,22721720,24 

- 


;S 0 i ’ 

6 MB 

, ..6§4fc 46 , , 

8686: 

.sMW 

2s,,:£7,2A,;?3V?.'?- 




,6B4D 24201F1E 
6B51 22 

6B52 26252423 

8087 

8088 

^B_YTE 

. BYTE 

33, .32 , 31,30,34 

38, 37, 36,-35, 39 

— 


— - 


9{ 

0 

1 * 

' .6B^6‘ 27" 

■hBsf mMzzm 

8089 

2 

6B5G 302F2E2D 

8090' 

3 

6B60 31 


4 

6B61 35343332 

.8094 


4 1 

5Q 

5) 

52; 

53: 

54 

55 

56 

& 


..BYtE ■■ 42\ 4 X , ;40 s ‘4?4 


.'BYTE 48 s 47 m 46,45 y 49 
BYTE 53 ,'52,51,50,54 



-6gfi6: 

P&91S31' 

669-2 


*686^' 

SB 



6B6B 

3F3E3D3C 

8093 


6B6F 

40 



-6B70 

44434241 

8094 


' '6g74'< 

*p;:l 



6b/'5 ; 

49484.746' 

80.95 


.. 6B79: 

4 A 


' 

6B7A 

4E4D4C4B 

8096 


6B7E 

4F 





8100 


>;tiYTE.. ,S^.'5'9- 


.BYTE 63,6 2,61,60,64 " 
. BYTE* 68,67„ 66,65,69 

.n - .- -i 4 ,- 

. BYTM; '7Z;^2\7 £ 5 TO 3 7'4 


B Yte 78,77,76^75^79 


81-20 ; T 

8140 5 backPaYe d;ata. Address. TAgLE 

58160 *5 


6B7F_ 

6B7F 8FDF2F7F 
6B83 CF1F6FBF 


8180 BSJBLL 
8200 ' 

8220 


1 ow 


6B'37:,6B6B6C6D 
6B8B 6C6D6D6D 


. &BSF. 


6BD F_ 

6BDF 00000000 
6BE3 00 
6BE4 .00000000 


.BYTE CBAKSAV, j^BAKSAV+SO^ ^AKSAV+HO^ ^BAKSAV+240 
. BY T E <BAKSAVT320, <BAKSAV+400■, <BAKSAV+4&0 , .' __ 

- <,BAKSAV4r56,0. ' T 

.8240 BSJBLH ; high 

8260 .BYTE: CB AKSAV., >BAKSA y+80, ‘£baks'av /+ j 6 6 , >BAkSA6V246. 

8280 . BYTE >BAKSAV+320 J1 >BAKSAV-+400 J1 >BAK5AV+480, _ 

>BAKSAV+560 

8300 ; _ 

8320 BACKSAVE DATA AREA 

8346 5 

8360 BAKSAV _#+QBJMAX *80 _^_^_. __ 

014580 _ i I NCLUDE' #D2: TRUCKS. M65 ___ 

1000 ; TRUCK DATA P0S=6" 

1005 TRUCK _ _ 

1010 

1020 


6BE8 00 
6BE9 00055400 
6BED 00. 

6BEE 00155500 


- BYTE * 00 , $00, $00 S '$Q6, $00 
_ ^BYTE r * 60 , $ 00 , $ 0 0 ,$ 00 ,$00 

1030 .BYTE $00,$05, $54, $00,$00 

1040_.BYTE $00 ,$ 15, $^5, $00, $00 


6BF2 00 


1040 











PAGE 75 URN DOWN - for Atari systems 
DATEXP 


6BF3 
’ 6BF7" 

005FFD00 

00 

_ 1050 

._BYTE_ 

$00,$5F,$FD , $00 , $00 

6BFB 

15DFFD00 

1060 

. BYTE 

$15* $DF,$FD,$00,$00 

' 6BFC 

00 




6BFD 

55D55540 

1070 

.BYTE 

$55,$D5,$55,$40,$00 

6001 

00 




, 6C02 

955FFF54 

1080 

. BYTE 

$95,$5F,$FF,$54,$00 

6006 

00 




.6CQ7 9557FFF5 

1090 

> BYTE 

$95,$57,$FF,$F5,$00 

6C0B t),Q 


„ 

■* 

6C0G 

9555FFFD 

I'l do * 

**, BYTE 

$95,$55,$FF,$FD,$00 

6010 

00 




6011 

1A555555 

1110 

.BYTE 

$ 1Ai, $55j, $55, $55, $00 

6015 

00 




601,6 

2A955555 

l X20 

.BYTE 

$2A,$95,$55,$55,$00 

601A 

00 




, &C1B 

OOAAAAAA 

1 130 

.BYTE 

$00,$AA,$AA,$AA,$00 

6C1F 

00 




6020 

00A56A95 

1140 

. BYTE 

$00,$A5,$6A,$95,$00 

6024 

00 




>6025 

OOA093AA 

U50 

.BYTE 

$00,$AA,$95,$AA,$00 

6C29 

do 




6C2A 

002A002& 

1160 

.BYTE 

$00, $2A, $60, $2A, $00' 

6C2E 

00 






1170 ; 

PQS=1 


6C2F 

00015500 

1180 

.BYTE 

$00.$01,$55,$00,$00 

6C33 

00 




6C34 

00055540 

1190 

.BYTE 

$00,$05,$55 r $40,$00 

6C38 

00 




6039 

0017FF40 

1200 

.BYTE 

$00,$17,$FF,$40,$00 

6C3D 

00 




6C3E 

0077FF40 

1210 

.BYTE 

$00,$77,$FF,$40,$00 

,6$42 

,00 




6043 

,05755540, 

1220 

.BYTE 

$05,$75,$55,$40,$00 

6047 

do * 




6C48 

155FFF50 

1230 

.BYTE 

$15,$5F,$FF,$50,$00 

6C4C 

00 




6C4D 

255FFF54 

1240 

.BYTE 

$25,$5F,$FF,$54,$00 

6C5J. 

o t a 

x 



6052 

2557FFD4 

1250 

.BYTE 

$25,$57,$FF,$D4,$00 

6C56 

00 




6057 

2957FFD5 

1260 

. BYTE 

$29 , $57, $FF., $D5j $00 

6C5B 

do 




6C5C 

2955FFF5 

1270 

.BYTE 

$29,$55,$FF,$F5,$00 

6060 

00 




6C61 

dOSSFFF^ 

1280 

. BYTE 

$00,$55,$FF,$F5,$00 

6C65 

do 




6C66 

00555555 

1290 

.BYTE 

$00,$55,$55,$55,$00 

6C6A 

00 




6C6B 

00555555 

1300 

. BYTE 

$00,$55,$55,$55,$00 

6C6F 

00 




6070 

OQAAAAAA 

1310 

.BYTE 

$00,$AA,$AA,$AA,$00 

6074 

00 




6075 

00AA80AA 

1320 

. BYTE 

$00,$AA,$80,$AA,$00 

6079 

00 




6C7A 

002AGO2A 

1330 

. BYTE 

$00,$2A,$00,$2A,$00 

6C7E 

00 





1350 


J 


TRUCK DATA POS=C 























6C7E 00 


1350 


TRUCK DATA P0S=0 


PAGE 

74 UPN 

DOWN - 

■for Atari 

systems 

DATEXP 

6C7F 

6C7F FFFFFFFF 

1355 

1360 

JRUCKIi 
” .'byte 

$FF, $FF, $FF,$FF,$FF 

60-33' 

FF 




6C84 

FFFFRFFF 

13 k 70 

..BYTE' 

$FF, $F,F,.$FF, $FF,$FF 

6C88 

FF _ 




6C89 

FFF003FF' 

~~ 1380 

" .BYTE 

$FF ? $FOj $05,$FF,$FF 

6C8D 

FF 




6C8E 

FFCOOOFF 

1390 

.BYTE 

$FF,$C0,$00,$FF,$FF 

6C92 

FF 



♦ 

:6C93 

FFOOOOFF 

1400 

. BYTE 

$FF,• $0Q , $00 , $FF*$FF 


6C97 FF _ _ ^ _ ___ _ __ 

6C93 COOOOOFF 1410 . BY IE $Cp^$OO.JiOO x $FF J $FF 

6C9C FF 

6C9D 0000005F 1 420 _._BYTE $00,$00, $ 00, $ 3F,$FF 

6CA1 FF . 


6CA2 

6CA6 

6CA7 

6CAB 

6CAC 

00000003' 

FF 

00000000 

FF 

00000000 

1430 

1440 _ 

1450 

.BYTE 

* .BYTE 

.BYTE 

$60, $00., $00, $03 , $FF 

$00 J $pq JL ^pp JU $pq^$FF’ 

$00, $00,.$00, $00,$FF 

6C.B0 

FF 




6CB1 

cpppopob 

14'60 

.BYTE 

$C0,$00, $00, $00,j&FF^ 

6CB5 

FF' 




6CB6 

COOOOOOO 

1470 

.BYTE 

$C0, $00 ,'$.00, $00, $FF 

6CBA 

ff’ 




~6CBB 

FFOOOOOO 

1480 

~.BYTE 

$FF,$00,$00,$00, $FF 

6CBR 

FF 




6CC0 

FFOOOOOO 

1490' 

. BYTE 

$FF , $00., $00,.$00;, $FF 

6CC4. 

FF 

, 



6CC5 

FFOOOOOO 

J.500 

.BYTE 

$FF i $Op, $00 ^$00^$^ 

6CC9 

FF 




6CCA 

FFCOFFCO 

1510 

. BYTE 

$FF,$C0,$FF,$C0,$FF 

6COE 

FF 



* 


1520 s pqS“l 

6 CCF FFF CO OFF .1530 „ .BY Jjf $ FF, $FC, $ O0,. $FF, $F F 


6CD3 FF 
6CD4 FFF0003F 

6CDS FF _ 

6CD9 FFC0003F 
6CDD FF 
6CPE FFQ0 005F 
6CE2 FF 
6CE3 F000003F 

6CE7 FF_ 

6CE8 COOOOOOF 
6CEC FF 
6CED C000000 3 
6CF1 FF ~ _ 
6CF2 C0000003 
6CF6 FF 
6CF7 COOOOOOO 
6CFB FF 
6CFC COOOOOOO 
6D00 FF 
6DOi FFOOOOOO 
6D05 _FF 
6D 06 FFOOOOOO 
6DOA FF 


1540 

.BYTE 

$FF, $F0 , $00 JL $3F J , $FF 

1550 ' 

. BYTE 

$FF’, $C0jt$00, $3F, $FF 

1560 

.BYTE 

$FF^$00 JL $00 JL $3F JL $FF 

1570 

.BYTE 

$F0, $00 , $00j, $3F , $FF, 

1580 

-BYTE 

icb,$00,$00,$0F,$FF 

1590 

.BYTE 

$C0 JL $00 JL $00 JL $03 a: $FF 

1600 

.BYTE 

$cd 7 $00,$00,$03,$FF 

1610 

.BYTE 

$C0, $00, $00, $00., $FF 

1620 

-BYTE 

$C0 JL $00 JL $00 JL $00^$FF 

1630 

-BYTE 

$FF,$00,$00,$00,$FF 

1640 

.BYTE 

$FF, $00, $00, $00,. $FF 


D2sTRUCKS.M6 






6 DOB FFOOOOOO 1650 .BYTE $FF,SOO/SOO,$00,$FF 

6 DO F FF _ ______' 

6D10 FFOOOOOO 1660 -BYTE $FF, $00, $00, $Q0,, $FF 

6D14 FF' 

6DT5 FEOOSFO'O 167 0 . BYTE $FF ,$00, $3F, $00, $FF 

6D19 FF 

6D1-A FFC OFFCO ' 'jL680 ‘ BYTE -$FF, ^CO^FF, $C0 a $FF 

6D1E FF _"__ ~~ 

\ 6.90 5 £ND OF TRUCK DATA 
1700 5 

6D1F_ 1710 S WE ERR _ ___ 

,6D1F ___ 172 0 SWEEPRM 

6 D1F 1730 FLGCAR 

6D1F _ 1740~ FLGCARM _1 2_ 

1750 5 
1760 ; 

_ 014600' , INCLUDE #D2: FLAGS. M65 

1000 .PAGE “FLAGS. l y 165 M __ 


















6D69 CA 


140 


DEX 


next fla< 

















6D69 2120 FLGH4Q 

6D69 CA 2140 _ DEX _ ; next -flag 

6 D 6 A 1ODO 2160 BPL FLGH10 



PAGE 77 _U PN DOWN - -for jAtarji^ systems __ _ __ _ _ _ 

FLAGS-. M65 ~ -D25'FLAC?S. M65 


6 D 6 C 4CCD6D 


2180 

2200 


JMP FLGH90 ; error exit 


6 D 6 F 

6 D 6 F 

6D72 

6D74 

6D77 

,6D7A, 

6D7C 

6D7E 

6D81 

6D83 


E C206D 
F 059 
QE206D 

2901 
F Q05 __ 
AD1F6D 
F04A 


2220 

.2240 

2260 

2280 

2300 

2320 


; Got -flag 
5 

FLGH50 

CPX FHIT 


iss this hj.t a continuation of .last? 
BEG FLGH90 X J^s “ branch 
STX FHIT _ i save currnet flag hit _ 


2340 


LDA FCOLOR,, X is -f lag on * or off? 
.AND #1 

BEG gLQj feO ; on - branch _ 

LDA F TO GL J toggle enabled? 

BEG F LGH9 0 
2440 FLGH60 ’ " 


,2360 

2380 

2400 

2420 


j_ nto - branch 


6D83 

61)86 

Xp89 

6 D 8 B 


200,B66 
BDE26D 
4901 
9DE26D 


2460 

2480 

2500 

2520' 

2540 

2560 


JSR FLAG ; do -flag sound 
LDA- FC.pLORj X ; change -flag 
JEOR #1 
STA FCOLOR-X 


_a_ 


6 D 8 E' E005 


2580 

2600 

2620 


5 1 Change header display 


CPX #5 


6D90 9021 


1 -is header -flag P/M- or PF? 
BCC FLGH70 : P/M - branch 


2640 
2660 x 

2680 j_ F.l aq i s Play-field flag 


6b3?2 

6D95 V 

6D97 

6D9A 


.BDF. 66 D. 
-85D4 _ 
BD 006E 
85D5 


6D9C BDE26D 


6£>?F 
6 DAT 

6DA3_ 

&DA5 

6 DA 8 . 

6 DA 8 


2901 

F005 

A955 


4CAB6D 


BD0A6E 


270Q 

2720 

2740 

2760 

2780 

2800 

2820 

2840. 

2860 

2880 

2900- 

2920 


LDA IHFPFLj, X 5 set dest pfcr 

_ STA R+0 _ _ 

LDA IHFPFH, ‘X 
STA R+l . 

LDA FCOLOR,X ; which color? 
AND' #1 ^ 

BEG FLGH62 

_L DA #$55 _ 5 . m ake whi te 

JMP FLGH64 
FLGH62 

LDA IHFPFC,X ; make color 


- 6 DAB 

6 DAB 

£DAD 


85D7 

20FB54 


6DB0 4CCD6D 


6DB3 

6DB3 

6 DB 6 * 

6 DB 8 

6 DBA 

6 DBC 

6 DBF 

6 DBF 

6DC2 

6DC2 

6DC5 


BDE26 D 

2901 

F005 

A900 


4CC26D 

BD4E6E 

9D536E 

4CCD6D 


2940 

2960 

2980 

3000 

3020 

3040 

3060 

308,0 

3100 

3120 

3140 

3160 

3180 

3200 

3220 

3240 

3260 

3280 

3300 


FLGH64 

STA R+3 

JSR EFLAG j_ draw ,-flag _ 
JMP FLGH90 




Flag is a P/M -flag 


FLGH70 

LDA FCOLOR, X 


AND ttl 
BEG FLGH74 

_LDA_ #0_ 3 move .flag of f sc,reen to reveal white 

JMP FLGH76 ~ 

FLGH74 

LDA IHF PMi X move back on screen ___ 

FLGH76 

STA HFP0S 3 X 


JMP FLGH90 
3320 FLGH80 _ 


6 DC 8 






















y 


6 DC 8 


3300 


3320 FLGH80 


PAGE 78 UPN DOWN - -f or Atari systems 


FLAGS . v M65, 



* 

D2:FLAGS.M65 



6 DC 8 A9FF 

. 3340 

"lda #$ff 

- 

-- - 

- 

-- 


6 DCA 8D206D 


6DCa 

6 DCD 6 $ 


6 DCE 


6 DCE C797E787 


3360 STA FHIT 


3380 FLGH90 
3400 RTS 

20 : _____ 

3440 j_ „ . . . . 

3460_FYL_ -flag Ypos high byte __ 

BY TE <455', <407, <743, <647,“<615, <847, <791, <327, 
<151, <119 „ 



3480 

n 

BYTE 


<455 


6D$2 674F1747 
6 DD 6 9777 


6 DD 8 _ 

6 DD 8 01010202 


3 500 F YH ; . _ low. " __ _ 

3520_ _ .BYTE >455, >407, >743, >647, >615, >847, >791, >327, 

>151, >119 


6 DDC 

6D|0 

6DE2 

6DE2 

6DE6 


6DE7 


6 DEB 

6 DECL 

6 DEC 

6 DF0 

6DF1 

6DF5 


02030^01 

00<>0 


164A3656 

AA 


S61E861E 


86 " 


3540 

3560 


FCOLQR ; _ f 1 &q color byte 

. BYTE_ $1 6 l $4A ,.$36, 


3580 


.BYTE $ 86 ,$1E,$ 86 ,$1E ,$86 


68988BA8 

62 _ 

A658B546 

AS 


3600 

3620 


FHPOS 5 <#PFLINES=983>-frag* hbriz. pos. 

.BYTE 104,152,136,168,98 


3640 


.BYTE 166,88,181,70,168 


6 DF 6 

6 DF 6 OE12161A 


366p 

3680 

3700 


IHFPFL ; PF -flags horis pos ? low 

BYTE CHMEM+90, <HMEM+90+4 s <HMEM+90+8, <HMEM+90+12 


6 EOO 48484848 


3760 


.BYTE >HMEM+90, >HMEM+90+4 ,_>HMEM+90+8j >HMEM +90+12, 
>HMEM+90+16 


6E04 48 


6E05 48484848 


6E09 48 

6E0A__ 

6E0A 55555555 
6E0E 55 


6E0F AAFFA^FF 
6E13 A$ 


.BYTE >HMEM+90+2, >HMEM+90+6, >HMEM+90+10, 

>HMEM+90+14, >HMEM+9d+18 


3800 

3820 


IHFPFC ; play-field -flag color 

.BYTE $55,$55,$55,$55,$55 


3840 


.BYTE $AA,$FF,$AA,$FF,$AA 


6E14 

6E14 ft20F 
^E16 

6E16 BDA96F 
6E19 9D3273 
6E1C 9D3274 
6E1F 9D3275 
6E22 9D3276 


3869 


3880 


3900 


3920 


3940 

3960 

3980 

4000 

4020 

4040 

4060 

4080 


SET UP THE FLAGS IN THE HEADER 


IHFLGS 

LDX #15 ; i 

IHFLIO _ 

LDA MFLGDAT+2,X 
STA M0+50,X 
3TA P0+50,X 
STA P1+50.X 
STA P2+50,X 


; init P/M data 


>e' 

I9< 

?oI 


2 ? 

7< 

2b> 

2t» & 
281 

■3C? 

V 


6DFA IE 

6DFB 1014181C 

3720 .BYTE 

< HMEM+90+16 

<HMEM+90+2, < HMEM+90+6, <HMEM+90+10, 

— 

- - — 

£dff 20 

je< 5 o r 

37*40 IHFPFH 5 

< HMEM+90+14, <HMEM+90+18 

.._ 
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6E22 9D3276 


4080 


STA P2+50, X 
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6E25 9D3277 4100 

6E28 CA ‘ ' 4120 


STA. ,P3+50, X_ 
DEX 


6E3?; 10EB 

.-6E2E, r A254- 
6E2D 

6E2D B D4E6E 
6E30 9D536E 

_j—_— 


,4140 
'4160 ,j 
.4180 


JPC IHFL J,0’ 
LDX- #4 


inii$ HPOS data 


4200 THFL20 

4220 LDA IHFPM,X 

4240 STA HFPOSn X 


6 E 33 :m 


-426Q, 


6E36 A209 
6E38 


6E38 BDF66D 
'•6g,3B : 8.5D4 ' ' ‘ 
t ; D506E 
"6E40;. 85D5 . . 
6E42 J3D0A6E 
6E45 ‘85D7 
6E47 20FB54 


U«PM BPL ;iHF^2p. 

4300 1 _ 

4320 L.DX #9 

4340 IHFL30_ 

4360 LDA IHFF’FL, X 


5. in it 10 header flags ‘ 


4400 

4420 

4440 

4 460 

4480 


.STA R+0. 
i-DA'. IHFPFH,,X 
STA R+l 


sEF’CA 
MM 'iPEf 

6E4D 60 


4;50p 
4520 
4^40 V 


LDA I HFF'FC^X 

STA R+13 ’ _ 

JSR FF;LAG i draw flag 


.DF* 

Mh ; IHFL3Q. 


4360 

4580 

4600. 


RTS 


■r ___ 

; Initial header flag hordz pos. 


,4620 f For .P/M flags, 

6&3S. 536878 88 ^ ,4660, .iBYTE- 88,, i 04, 120 £ l-36y 15i2 
6E52__98 _ 

6E55 ’ ___ j4680_HFP0S #= *+5 

4700 s 


j horiz pos of header P/M fla gs 


’4720; f v . . _., 

474.0 % 'Scrial 1 :£be, f lags: Iff ,t-he f\&g Jab 1 ©s' 
4760r . .. , . , , 


_6E58_ _ 

6E58 AD135B 
6E5B F043. 


4780 £LGSGR 
4800 


4820 


LDA SCRFLG ^ only d o this after_Screen scr oll 

BEQ FLGS45 


6E5D- A96E, 
6E5F 


484.0 V 

4860 * LDA# li.O 

* 4880 FLGS01 


6E5F 

8D0BD4 

4900 

6E62 

BOFB 

4920 


. 

4940 ? 


CMP VCOlJNT sync_to screen 
BCS FLGSO1 


*£■ 'Setup, tor RS.TJD&I routine.' ih ; 
,c6se. 'it :? s called __ 


6E64 

6E66 

A 900 
8DFB6F 

5020 i 

5040 

5060 

LDA 

STA 

#0 5 
FTOPDLI 



■5080 i| 



6F69 

;A9FF 

SlOP " 

LDA 

#*FF 

6E6B 1 

A204 

5120 

Ldx 

#MAXF0N 

6E6D 


5140 RSTD08 

- 

6E6D 

9DF56F 

5160 

STA 

FDL.ISEQ, X 

6E70 

CA 

5180 

DEX 



_ 4. 




























6E6D 

6E6D 9DF56F 
6E7C CA_ 
6E71 10FA 


5140 RSTDOS 

5160 STA FDLISEQ,X 

5180 DEX 

5200 BPL RSTD08 
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6E73 AD135B 
6E76 3029 


6E78 A209 
6E7A 

6E7A FECE 


6E7D D003 
,^E7F FFDB6D 
6E82 

6E82 BDD86D 
6E85 C903 
6E87 9011 


6E89 D007 
6 E8B BDCE6B 
6 E8E C9E0 


6E90 9008 
6E92 

6E92 A900 
6E<?4 ?DQ£6D 
6E97 ,9DD8‘6D 
6E9A __ __ 
6E9A 20C86E 
6E9D 

6E9D (^A_ 

'6E<?E 10DA 
6 EAP 


FECE6D 


5260 

5280 

5300 

5320 

5340 

5360 

5380 


540Q 

$’420 


; Scroll 


LDX 

FLGS10 

INC 


BNE 

INC 


5 440 FLGS15 
5460 LDA, F YH, X 

5480 CMP # >&PFI 

5500 BCC FLGS30 


5520 BNE FLGS20 

5$40 LDA FYL,X 

$56d CMP- # C&PFI 


SCRFLG ; whi ch way wass scrol l ? 
FLGS50 


- -flag data down 

#9 j_index to -f 1 aqs 

FYL,X ; chg flag's Y 


FLGS15 
fyh, X’ 

F YH„ X j_ check -for wrap __ 
# >&PFLEN/1.0ij*16 : "* ' ^ 

FLGS30 


FLGS20 
FYL, X 

#• <aPFLEN/l0u*16 . , 


FLGS30 


#0 _ 

;FYL, X 
FYH.,*' 


do wraparound 


6EA0 

60 

'5840- 



5860 

5880 

5900 

6 EA1 


5920 

,6EA 1 

A209 

'5940 

6EA3 


5960 

6EA3 

6 FA6 

’|)ECE6p 

BDCE6D 

5980 

6000 

6020 

Qunu 

6EA9 

XJ U w l— w L/ 

C9FF 

6 EAB 

D003 

6040 

6 EAD 

DED86D 

6060 

6EB0 


6080 

6EB0 

'BDD86D 

6100 

6EB3 

C9FF 

6120 

6EB5 

DOOA 

6140 

6EB7 

A9DF 

6160 

6EB9 

9DCE6D 

61&0 

6 EBC 

A?Q3_ 

6200 

6 EBE 

9DD86D 

6220 

6EC1 


6240 

6EC1 

20C86E 

6260 

6EC4 


6280 

6EC4 

CA 

6300 

6EC5 

10DC 

6320 

6EC7 

60 

6380 


5580 BCC FLGS30 

5600 FLGS20 
5620 " "'LDA #0 
5640 ; ’ :STA FYL, X 

0 ’ -STA If^hVx' 

5 680 iFLGSSd , _ 2 

5700 _ JSR DRWFLG 
5720 FLGS40 
5740 , DEX __ 

.5760. ;BPL‘ .FLOS 10 
5820' FLGS45 
'5840- &TS' 


j Scroll flag data up 


FLSS50 

LDX #9 

PLGS55 _ _ 

DEC FYLj_X_ 

LDA FYL^X 
CMP #$FF 
BNE FLGS£0 
DEC FYH..X 

FLGS60 __ 

LDA FYH ? X ; check for wrap 
CMP #$FF 

BNE FLGS7 0- __ 

LDA # <APFLEN/ : T.Qu* 16-1 do‘ wrap around 
STA FYL,X 

LDA #. >4PF LE N/lU u*c!6-i. _ 

STA FYH,X 
FLGS70 

JSR ‘DRWFLG 
FLGS80 ' 

DEX 

BP FLGS55 _ 

RTS 


JL D r the flag as a 5th player __ _ 

; by combining all missiles 


6400 

6420 

6440 

6460 
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6440 ; Draw the -flag as a 5th player 
6460 ; by combining all missiles 


4 

* 

* 
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6480 ; uses R+10*11,12,13. 
6500 : 


Set DLI 


6 EC 8 

6 EC 8 

6EC9 


8 A 

48 


6520 DRWFLG 
6540 TXA 

6560 PHA 


6 ECA 


6 ECD 

6 ECF 


J3DD86D 

P07Q 

BDCE 6 D 


6580 

6600 

6620 


LDA FYH, X 
BNE DRWF50 
LDA FYL,X 


check within display bounds 


6ED2 
6 ED 4 
6 ED 6 


C90B 

9069 

C963 


6 ED 8 B065 


6 EDA 85DF 


6640 
6660 
6680 
6700 
6720 ; 
6740 


CMP #11 
BCC DRWF50 
CMP #99 


BCS DRWF50 


STA R+il 


save f1aq 5 s Y 


6 EDC 86E0 
6 EDE C913 
6EE0 9036 


6760 STX R+12 

6780 CMP #19 

6800 BCC DRWF30 


# 


; save f 1 ag 
; clip top? 

: yes — branch 


6EE2 C95C 


6EE4 B048 


6820 

6840 


CMP #92 


BCS DRWF40 


£ clip bott om? 
; yes -- br anch 


6860 




6880 ; 

6 EE 6 A912 6900 LDA #18 

6 E£S 85DIE _6920 . STA R+10 


5 # bytes to" draw 


6 EEA BD CE 6 D 
6 EED A200 
6 EEF _ 


6940 


6960 


LDA FYL,X 
LDX #0 


5 _ set i ndex to dest. _ 

5 index to sourc e da ta_ 


6980 DRWF05 


6 EEF 0A 
6EF0 18 
6 EF1 69ID 


7000 

702Q 

7040 


_6EF3 A 3 
6EF4 
6EF4 98 


7060 


ASL A 
CLC 

ADC #29 
TAY 


; convert to P/M, coords 


7080 D RWF20 
7100 ' ~ TYA 


; sync to screen 


6EF5 4A 7120 
6 EF 6 38 7l!6' 
6EF7 E905 _7160 


LSR A 
SEC 

SBC #3 


m 

m 

# 

m 


6EF9 CD0BD4 


7180 


6 EFC B008 
6 EFE 18 


J200 

7220 


CMP yC0UNT, 
BCS DRWF22 
CLC 


6 EFF 6906 
6F01 

6F01 CD0BD4 


.7240 


ADC #6 


7246 DRWF21 

726b CMP VCOUNT 


6F04 BOFB 
6F06 


7262 


BCS DRWF21 


ke^ 


6F06 BDA76F 


7264 DR WF22 

7280 LDA MFLGDAT,X 


draw -flag 


6F09 990073 7300 STA MO,Y 

6F0C ,E 8 7320 I NX 

6 FOP C 8 7340 I NY ___ 


6F0E C 6 DE 


7360 


6F10 D0F4 


7380 


DEC R+10 
•BNE DRWF22 


7400 


6 Ft2 20426F 
6F15 4C3F6F 


7420 

7440 

7460 


JSR RSTDLI 
JMP DRWF50 


set DLI 


6F18 


7480 ; 

7500 ; Clip top 

7520 5 

7540 DRWF30 


6F18 A913 


7560 


LDA #19 
















6F18 

6F18 A913 


7540 DRWF50 
7560 LDA #19 
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6F22 A912 
6F24 38 


6F25 E5DE 


7 


6F2E 

6F2E A963 

6F30 38 _ 

6F31 F DCE 6 D 
6F34 OA 


6F37 BD.CE 6 D 
6F3A A20O- 
6F3 C 4CEF6E 
6F3F 
6F3F 68 


6F40 AA _ 

6F41. ,60 



6F42 


6F42 

6F44 

6F45 

6F47 

6F48 

6F4B 

6F4C 

6F4E 

6F50 

6F52 

6F54_ 

6F57 

6F57 

6F59 

6F5B 

6F5D 

6F5F 

6F62 

6F64 

6F67 

_ 6 F 6 A_ 

&F 6 A 


A5DF 

38 

E913 

A 8 

B93A4B 

AS 

A5DF 

C914 

9005 

A96D 

99BE42 


A5DF 
C 91 3 
BOOD 
A901 
SDFB 6 F 
A96D 
8DC142 
4C7A6F 


A5DF 


7580 

7600 


0 
0 
0 

7680 

7700 

7720 


4 

6 

8 


7800 
7820 
7840 
7860 
7880 
7900 
7 920 
7940 
6 

1 980 
8000- 
8020 . 
8040 
8060 


8080 
,8100 
8120 
JBI40 

~al60 

8180 

8200 


8220 

8240. 

'8 260 

8280 

8300 

8320 

8340 

8360 

8380 

8400 

8420 

J3440 

8460 

8480 

8500 

8520 

8540 

8560 

’8580 

8600 

8620 

8640 

8660 

8680 

3700 

8720 


.SEC 

SBC FYL,X 


ASL A 
STA R+10 
TAX 

LDA #18 
SEC 

SBC R+10 


STA R+10 
LDY #67 
JMP DRWF20 


j Clip bpttom 


DRWF40 

LDA #99 
SEC 

SBC FYL,X 
ASL A" 


STA R+10 


t-DA FYL, X 
LDX #0 

__ JMP DRWF05 

DRWF50 

PLA 


TAX _ 

RTS 


J_ Reset fla g DLI y s to control 
j_ •§. color and HPOS 

’s R+l 1 flag's Y 


5 R+l2 flag # 

X R+13 used 

RSTDLI 


LDA 
SEC 
SBC 
TAY 
LDA 
TAY 
LDA 
_ CMP 
BCC 
LDA 
STA 
RSTD10 ’ 
LDA 

_CMP 

BCS 
LDA 
- STA 
LDA 
STA 
JtJP 

RSTD30 

LDA 


R+ll j compute index to DLIST 
; based on flag's Y _ 

#19 


M3TBL, Y x *3_ 


R+ll ; top line or above? 

#2 0 ' ''__ 

RSTD10 ; yes - branch 

#$ 6 D ; qle'ar tpp adjacent DLI 

DLIST+25-3,Y 


R+ll 5 top clip? 

#19__ 

RSTD30 ; ‘no - branch 

#1 5 set top DLI flag 

FTOPDLI __ 

#$ 6 D ; erase last DLI 

DL.IST+25 - 

RSTD32 


R+ll 


; bottom line or below? 
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9700 5 FLAG DLI ROUTINE SETS COLOR 
9720 ; AND HORIZONTAL POSITION OF 
9740 5 FLAGS. 

9760 s FLAGS IN "FDLISEQ 11 TABLE ARE 


9780 : HANDLED IN ‘ORDER AND INDEXED 
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D2.; FLAGS. M65 


9800 

9820 


WITH "FDLINDX 


’ ,6FB9 


9840 FDLI 

6FB.9 

48. 

9860 

6 FBA 

>98 . 

9880 

6 FBB 

48 

9900 

6 FBC 

8 A 

9920 

6 FBD 

48 

9940 


16 


L< ; vm 


T'Ja 


6 FBE 

6FC1 

6FC4 

6FC5 

6 FC 8 

~6pCA 

6 FC.C 

6 FCE 


6FD1. 

6 FD 1 

6FD4 


6FP4* 

6^D7 

6 FDA 

6 FDD 

6 FDE 

6 FPF 

6FE2 

6FE3 : 


6FE4 

6FE7 

6 FE 8 


AEFA6F 

BDF56 F 

_AA_ 

BDE26D 
2901" ~ 
F005 
A90F 
4CD46F 


BDE26D 


8D19.D0 

BC£C6D 

8C07D0 

C 8 

C 8 

8C06DP 

C 8 

08 


8C05D0 


08 


08 


996Q ; 

9980 LDX 

010000 LDA 
010020 TAX 
010040 LDA 
010060 AND 
0.10080 BEQ 

o ioioo Lop 

010120 , JMP 


01014 0 FPLI10 
010160 LDA 
010180 FDLI20 


LDX FDLINDX 
L DA FDLISEQ, 
TAX 

LDA FCOLORj, X 
AND #1 
BEQ FDLI10 
LDf> #$0F 
, JMF* FDLI20 


FPL 110 

LDA FCOLORj, X 


get index to next -flag 
JL get nex t -flag # _ 


set color 
use color 
use color 
use white 


or white? 
- branch 


,010200 
01,0220 
010240 
010260, 
010280 
010300 
010320 
C> 10340 
010360 


010380 


010400 


010420 


ST A $001.9 

LDY FHPQ5,X 
STY .HP0SM5 
JNY 

I NY _ 

STY HPQSM2 
I NY 
I NY 


STY HPOSlil 


I NY 


I NY 


set horiz po s, 



6FE9 8CO.4D0 

010440 
010460 ; 
010480 ; 

S.TY 

! 

I 

HPOSM0 * * 


6 FEC EEFA 6 F 

010500 

INC 

FDLINDX 5 inc index for next DLI / next flaq 



010520 ; 



6 FEF 68 

010540 

PLA 

, 


6 FF1 68 
6FF2 A 8 
6FF3 68 
6FF4 40 



=0004 


6FF5 

6 FFA 


6FFB 


010580 
01060 0 
010620 
010640 
01066 0 
010680 
010700 
010720 
010740 
010760 
010780 
010800' 
010820 
010840 
010860 
010880 
O10900 
010 920 
010940 


FDLISEQ table holds order' of 
■flags on screen fro m top to 
bottom for DLI ■" s to access. 
Max number of -flags on screen 
i s 8. 


MAXFdN * 
FP LISE P 
FDLINDX 


FTOPDLI 


; max # -of flags on screen at 

*+MAXF 4 bN+i _ 

* + l 5 index to FDLISEQ 


flag 


ti me 














010920 j_ — 

010940 FTOPDLI * = 
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010960 ; 

_ 010980 V _ 

014620 
014640 s 

_____ 014660 ; ; .OP T LIS T 

"6FFC _014680 PROGEND = # 

014700 ; ; , OPT~ NO LIST 
6FFC 014720 .END 


SSSEMBLy ERRQRS: 6 i/69S' BYTES FREE 


D2:. FLAGS, M65- 
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5B17 
53C6 
"D208 
=676E 
6B8F 
670 1 
674F 
66FE 
5B11 
60*1 B 
625C 
5C5 9 
4294 
424A 

' &59E 
65S9 
==D015 

4 OOF 

=2>74Q 

76965 

*5A74 
5AC9 
,5C53 
42 A 8 
■68.C4 

¥?aq 

59D4 

5A0B 

6F06 

6EC8 

69E5 

"1*480 

5 4 BO 
5501 
5A22 
5A29 
5A0E 
6DE-2 
6FF A 
69 C8 

_552A_ 
6D37 
6P69 
6pAB 
„ 6DC8 
6E7A 
~ 6E-9D 
' 6EB0 
6D3.F 
6PCE' 
=026F 
6E53 
=D004 
-DOQO 
5293 


6E2D 


ACCCNT 

A.DDS20 s 

AUt&TL 

AUDV3 

BA KSA V 

BR419 

BR424 ' 

PK461 

feUGDIR 

BUGH3 

BUGP5_ 

BYT ADD 

CARLF~T 

CHARL 

.CHGDSP 

-COL X 20 

CQ LISN 

CQLPM3 

CY _ 

pATAX ' 

DATE2p* 

DESElb 

DE5E56 

PIPI NG 

DLIST 

DNSC15 

DRAW 

DRAW05 

DRAW30 

DRWF22 

DRWFLG 

DXPTR4H 

ECAp * : 

ECAR40 

EFLA10 

ERAS Q2 

ERAS06 

{ERASE 

FCOL0R 

FDLIND X 

FFBYTE 

f lagda t" 

FLGH06 
FLGH40 
FLGH64 
FLGHSO 
FLG S10 
£LGS40__ 
FLGS60 ~ 
FTQGL 
FYL 

GPRIOR 

HFPOS 

HPOSMO 

HPOSPO 

IDLI10 


IHFL20 


=0028 
-53AE 
=D2Q0 
=6770 
5B0F 
6708 
67 IB 
66F4 
.601,8 
601C 
42A6 


ACCDLY 

ADDSCOR 

AUDF1 

,AUDV4 

BLST INC 

BR420 

BR457 

BR463 

BU0HO 

BUGPO 

BUGX 


=02FC CH 
=9000 CHARS 
4012 CHINPX 
65B0 COL130 
=D012 COLPMO 

=doif' consol" 


6916 
69AB 
Spl 84 
5ACB 
53FA 
6870 
6044 
59C3 
59D6" 
6EE F 
6F18 
4Q08 
vc v 69E l* 
548A 
54B7 
5527_ 
5A29 
5A38 

6FS9 

6FF5 

_6D2C> 

6D1F 

6D3C 

6P6F 

; £d#3 
6DCI5 
__ 6E82_ 
6EA0 
6EC1 
, 6FFB 


DAT0O5 

DATE30 

DESE15 

PESE57 

P L 11 

DNSC01 

PNSCpivi 

DRAWOl* 

DRAW!0 

DRWFQ5 

DRWF30 

DSCROL 

DXPTRLL. 

E CARLO ~ 

ECAR50 

EFLA20 

ERA503 

'erasio' 

“7 5- 

FDLI 

FDL I SEQ 

_FHIT_ 

FLGCAR 

FLGH10 

FLGH50 

v FLGH70„ 

FLGH90 

FL GS15 

FLGS45 

FLGS70 

FTOPDLI 


5 FEE ADDP1 
=004D ATRACT 
676A AUDV1 

5B1 0 BLSTNZR 
673C BR 421 
6726 BR458 
6B87 BSTBLH 
6019 BUGH1 
60DC BUGF1 
42A7 BUGY 

~=02F2 CH~1~~ 
=02F4 CHBAS 
4B8A CHRREF 
65B4 COLI40 _ 
"DO13 CQ LPM1 
'4013 CURCHAR 


6920 

69C4 

,5A9E 

5A69 

J541JE 

687D 

59BC 


59FC 

6EF4 

6F2E 

4UB 

69EP. 

M'be: 

54CB 

J54FB 

5 A 30 
5A58 

6FD1 
=0050 
jSDEC 
6D1F. 
6D51 
6D83 

6 DBF 
£522 

. 6E92 
6EA1 
6EC 4 
=0010 


DATE10 , 
DATE 4Q, *" 
DESLSQr 
DESETUP 

DLI 2_ 

DNSC02 
DRA i'QO ! 
DRAWd2 V ; 
DRAW 15- ' 
DRWF20 
DRWF40 , 
■DSPTBH: 
DXPTR2H 
£CAR20 
ECAR60 
EFLAG 
_ERAS04_ 
ERAS15 

FPL, 110 

FDLY _ 

FHPOS 

FLGCARM 

FLGH20 " 

,FLJ0H6O 

FLGH'74 ' 

FLGHlT 

FLGS2 0 

FLGS50 

FLGS80 

FWDSPD 


=D01D GRACTL 
=D01E HITCLR 
«D005 HP0SM1 
=D001 HP0SP1 
52A9 IDL-I30 


6038 IHFL30 


47B4 HMEM 
=D006 HP0SM2 
=D002 HPO0P2 
526B IDLIST 


6E14 IHFLGS 



Moo re 8u*ln*u Forms, Inc. iv 1412RH 




















=D300 porta ' " 69D5 PPH 

4000 PSCQRO 4001 P5C0R1 

-00D4 R _ -D20A RANDOM 

6 31C REDR WO 6AFF REFL10 

6B14 REFL40 6B16 REFL50 

4003 ROUND '428A ROWBUF 

6F6A RSTD30, 6F75 RSJD31 

6F8B RSTD40 6F8F RSTD4 4 

6F42 RSTDLI =0012 RTCLOK 

4014 SAVBUF 67DB SCR233 

4009 SCRCTR___^5B13 SCRFLG 

67B3 SCR022 _ * 67C4 SCRQ23 

67F0 SCR027 67FB SCR030 
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4002 
5E91 
6 BO 7 
6AFD 


6E6D 

6F7A 

6F9D 


PSCQR2 

RDSTAT 1 

REFL20 

REFLECT 


RSTD08 

RSTD32 

RSTD48 


67D4 SQR242 
4 004 SCRF LG2 
67C5 SCR024 
=00CA SCROLC 


6793 

Q22F 

6A9S 

6AC3 

5F14 

5F54 

; D008 

=D20F 


634 i 
6663 
6D1F 
580 0 
64 B8 


6471 


64 A1 
64E6 
6515 


6462 

655E 


5B41 


5B35 
5BCC 
5BE1 
=DQ 10 
4 006 
=0001 
67FC 
5,1 §0 
=D40B 
=675 8 
=0224 
5F9E 
5FE2 
=000F 
=000E 


SCROLL. 

SDMCTL 

SHAP30 

SHIF15- 

SHQC05' 

SH0C10 

SIZEP O 

SKCTL 


.SPEED 
SSTR3 
5WEEPRM 
TCHARS 
TIN551 
TINI15 


XINI50 
TINI60 
TINI70 


TINIT 

TPROB 


TRAC06 


TRAC30 
TRAC56 
TRAC70 
TRIGO 
TRUCKX 

UL _ 

UPSCR1 

VBINQ5 

VCQUKlT 

V0ICE4 

wbLkd 

WHEE05 

WHLPQS 

XCRSH 

YCRSH 


A 00 A 
66DD 
6AB6 
6AiC5 
5F1F- 
5F72 
“0009 
=7E70 


-0232; 

6695 

~5465 

64BD 


6476 


64AD 

64FB 

6527 


657C 

5C4E 


5B4B 


5B93 
5BD7 
5C18 
65DC 
4007 
6825 
67FC 
5 IFF 
6752 
675A 
65EC 
5FA6 
5.B19 
=E462 
632F 


SCRSPD 

SFX 

SHAP40 

SHIF20 

SH0C05 

SH0C20 

sfZEPl 

SMEM 


SSKCTL 

SSTR32 

JFDL i 
TINS52 


TINI20 


TINI52 
TIN162 
TINI74 


TMAXS P 

TRA100 


TRAC10 


TRAC40 

TRAC60 

TRAC80 

TRKDIE 

TRUCKY 

UPSC10 

UPSCRN 

VBIN32 

V0ICE1 

VPTR1 

VWDIE 

WHEE10 

WHCSEQ 

XI.TVBV 

YPOS 


0231 
6A7E 
6A71 
6AEE 
5F3E 
5F75 

ooqa~ 

4005 


663F 

.66C7 

6556 

64B3 


6478 


64C7 

6501 

652C 


6582 

5B1E 


5B70 


5BBC 

5BDF 

5C25 


6BDF 
63 ID 
682F 
= 0002 " 
5201 
=675 4 
=D405 
65CC 
5 F E1 
=D40A 
6326 
-OOOB 


SDLSJH 

SHARPS 

SHAPEX 

SHIF30 

SHQC07 

SHQC50 

SIZEP2 

SNDCTL 


SSTR1 

SSTR4 

TIN100' 
TIN553 


TINI30 


TINI54 
TINI64 
TINI80 


TMINSP 

TRAC02 


TRAC18 


TRAC48 

TRAC64 

-TRAC90 

TRUCK 

T YPE 

UPSC15 

UR 

VBIN40 

VQICE2 

V SCRQL 

V WJUM P 

WHEE20 

WSYNC 

"xpos 

YTRKPT 


5 EBF RDSTAT2 
~6B12 RE FL50 
6B2F RFLPAT 
6F57 RSTD10 
6F7C RSTD35 
6 FA1 RSTD 50 

67D8 SCR244 
67A2 S CRQOb 
67ED SCRQ25 
400B SCROLF 


Q2: U.$65 


0230 SDLS TL 
6A82 SHAP10 
6AC1 SHIFlp 
6ABD SHIFT 
5F47 SH0C0 .8 
SEE D SHOCAR 
OOOB SIZEP3 
634A SF'DCTR 
66IB SSTR2 
6D1F SWEEPR 

64C2 TIN55 0 
6467 TINI10 
6481 TIN140 
6'4CF TIN]!56 
650C TINI66 
654B' TINI90 
6588 Tf'NDX 
5B39 TR AC05 
5B74 TRAC20. 
5BPC. TRAC50 
5BE1 TRAd65 
5BiA TRACK 
6C7F TRUCKM 
69C5 T YF’REF 
683D UPSC18 

518E VBI.NX 
=6756 VOICES 
6762. VTJMR1 


5F7E WHEELS 






